Ответы
Ответ дал:
1
var a,b:integer;
begin
writeln('Введите A, B');
readln(a,b);
if a = b then writeln('Ничего не удвоили, числа равны')
else
if a<b then begin
a:=a*2; writeln('удвоили А ',a);
end
else
if b<a then begin
b:=b*2; writeln('удвоили B ',b);
end;
end.
begin
writeln('Введите A, B');
readln(a,b);
if a = b then writeln('Ничего не удвоили, числа равны')
else
if a<b then begin
a:=a*2; writeln('удвоили А ',a);
end
else
if b<a then begin
b:=b*2; writeln('удвоили B ',b);
end;
end.
Похожие вопросы
1 год назад
1 год назад
6 лет назад
8 лет назад