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

Question

Информатика

Ионич

19 декабря, 12:14

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

+1

Ответы (1)

Знаете ответ на вопрос?

Лукан · 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