40 пунктов
Информатика, Паскаль
9 класс
12 задача
Приложения:
Ответы на вопрос
Ответил m0nclous
0
Var a,b,c,max:real;
Begin
write('Введите 3 числа: '); readln(a,b,c);
if (a>b) and (a>c) then max:=a;
if (b>a) and (b>c) then max:=b;
if (c>b) and (c>a) then max:=c;
writeln('Наибольшее число: ',max);
End.
Begin
write('Введите 3 числа: '); readln(a,b,c);
if (a>b) and (a>c) then max:=a;
if (b>a) and (b>c) then max:=b;
if (c>b) and (c>a) then max:=c;
writeln('Наибольшее число: ',max);
End.
Приложения:
Новые вопросы