Question

Программа решает следующую задачу: Даны два вещественных числа.
Найти и вывести наибольшее из них.
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.

Answer 1

Ответ:

PascalВыделить код

1

2

3

read(a,b);

if a<b then write(a,','b)

else write(b,',',a);

0