Решите пожалуйста задачуу на програмирование паскаль. Даны 4 числа. Найти среднее…

Question

64

Решите пожалуйста задачуу на програмирование паскаль. Даны 4 числа. Найти среднее арифметическое этих чисел и сравнить с максимальным из них. Еслионо (средн. Числ.) больше, то вывести фразу "yes", если нет то "no"…

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

ответить

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

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

zaskock · Accepted Answer

71

zaskock

21 февраля 2023

program zadacha1; uses crt; var begin; clrscr; writeln ('введите 4 числа'); readln (a,b,c,d); i: =(a+b+c+d) /4; if a>b then g: =a elseg: =bif g>c then g: =g elseg: =c; if g>d theng: =g elseg: =d; if i>g thenwriteln ('yes'); elsewriteln ('no'); readkey; end.

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

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

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

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