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

Question

Информатика

Аят

2 декабря, 10:47

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

+5

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