Составьте программу, которая запрашивает три числа и определяет наибольшее из них.
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Равах
Program maksimaljnoe_chislo;
Var a, b, c, max : real;
Begin
CLRSCR;
Writeln( ‘ введите первое число a = ’ );
Readln(a);
Writeln( ‘ введите второе число b= ’ );
Readln(b);
Writeln( ‘ введите первое число c = ’ );
Readln(c);
Max:=a;
If max < b then max:=b;
If max < c then max:=c;
writeln(‘ максимальное из чисел max= ’ , max:5:2);
repeat until keypressed;
END.
Var a, b, c, max : real;
Begin
CLRSCR;
Writeln( ‘ введите первое число a = ’ );
Readln(a);
Writeln( ‘ введите второе число b= ’ );
Readln(b);
Writeln( ‘ введите первое число c = ’ );
Readln(c);
Max:=a;
If max < b then max:=b;
If max < c then max:=c;
writeln(‘ максимальное из чисел max= ’ , max:5:2);
repeat until keypressed;
END.
Новые вопросы в разделе Информатика
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
