Программа решает следующую задачу: Даны два вещественных числа. Найти и вывести наибольшее из них.
program Example2_1;
a, b, max : real;
begin
{Ввод}
writeln(‘Введите два вещественных числа:’);
readln(a, b);
{Вычисление}
if a > b then
max := a
else
max := b;
{Вывод}
writeln(‘Наибольшее значение равно ’, max:6:2);
end.
PascalВыделить код
1
2
3
read(a,b);
if a<b then write(a,','b)
else write(b,',',a);
0