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

Question

Информатика

Агна

7 мая, 03:47

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

+4

Ответы (2)

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

Матвей · Answer 1

Var a, b:real;

begin

writeln ('Введи два вещественных числа') ;

readln (a, b) ;

if a
else if b
writeln (a:5:2,' ', b:5:2) ;

readln;

end.

Если я правильно поняла.

Арсен · Answer 2

Var

a, b : real;

begin

read (a, b) ;

if (a < b) then a : = 0;

write (a, ' ', b) ;

end.