Ввести два числа. Если оба числа равны 5.5, то выдать их на печать, иначе удвоить число не равное 5.5. Программу Паскаль

Question

Михаилушка

2 декабря, 07:02

+3

Ответы (1)

Знаешь ответ?

Святослав · Answer 1

Var

a, b: real;

begin

readln (a, b);

if a 5.5 then a : = a * 2;

if b 5.5 then b : = b * 2;

writeln (a, ' ', b);

end.