Question

Даны 2 действительных числа.Заменить первое число нулем,если оно меньше или равно второго,и оставить числа без изменения числа в противном случае.Числа вводятся пользователем с клавиатуры.Результат работы программы выводится на экран

Answer 1

Var a,b:real;
begin
write('a = '); readln(a);
write('b = '); readln(b);
if a<=b then a:=0;
writeln('a = ',a,'  b = ',b)
end.

Пример:
a = 5
b = 8
a = 0  b = 8