Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Найти максимальное из двух чисел задание по информатике

Ответ оставил Гость

Program prog;
uses crt;
var a,b: real;

begin
write(Введите число а = );
readln(a);
write(Введите число b = ) ;
readln(b);
writeln;
if a>b then writeln(Максимальное число а = ,a:0:3);
if aif a=b then writeln(Числа равны);
end.

Оцени ответ