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

Question

Увар

1 января, 11:41

+4

Ответы (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.