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

Question

Информатика

Шерали

22 мая, 03:16

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

+1

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