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

AlinaMein14 AlinaMein14    3   25.09.2019 15:00    0

Ответы
keram1it228 keram1it228  21.08.2020 15:33
Var a,b:integer;
begin
readln(a,b);
if a<>b 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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика