Даны 2 числа, если первое число больше второго то их удвоить, если равны то вывести сообщения

Question

Информатика

Эдгарт

20 июля, 12:15

Даны 2 числа, если первое число больше второго то их удвоить, если равны то вывести сообщения

+2

Ответы (1)

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

Церлина · Answer 1

Var a, b:integer;

begin

readln (a, b) ;

if ab then

begin

if a>b then

begin

a:=a*2;

b:=b*2

end;

writeln ('a=', a,' b=', b)

end

else writeln (a,'=', b)

end.