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

Question

Колюша

4 сентября, 18:06

+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.