Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран…

Question

97

Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующиерезультаты.· Если второе и четвертое числа отрицательны, то выведите их произведение.· Если первое и третье числа больше 10, то выведите все четыре числа, увеличив их в десять раз· Если выполняются одновременно два перечисленных выше условия, то выведите эти четыре числа без изменения.· Иначе, выведите все четыре числа, уменьшив их в десять раз. Составьте соответствующие отладочные примеры и проверьте работу каждой программы.

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

alexz1307 · Accepted Answer

73

alexz1307

15 сентября 2022

program Mine; uses crt; var a1,a2,a3: real; a4: integer; begin clrscr; writeln (' Vvedite 4 chisla ->'); readln (a1,a2,a3,a4); if (a1<30) and (a2<30) and (a3<30) and (a4<30) and (not Odd (a4) then writeln (a1:7:2,a2:7:2,a3:7:2,a4:7) else if (a1<30) and (a2<30) and (a3<30) and (a4<30) then writeln (a1*2:7:2,a2*2:7:2,a3*2:7:2,a4*2:7) else if not Odd (a4) then writeln (a1*a2/10:0:2) else writeln (a1-a4); readkey; end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: