Регистрация
Войти
Стать экспертом Правила
Информатика

Напишите программу нахождения наибольшего значения среди трёх величин: A, B, C​

ОТВЕТЫ

var

a,b,c,max:integer;

begin

read(a,b,c);

if a > b then

max:=a

else

max:=b;

if max > c then

write(max)

else

write(c);

end.

245
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам