Chagenlak
5 год назад
Напиши те программу в Паскале :
Даны x и y .Если x>y то число заменить их квадратами .В противном случае число удвоить . ОЧЕНЬ НАДО !!
ОТВЕТЫ
Ленивцев
Aug 11, 2019
Var
a,b:integer;
begin
readln(a,b);
if agt;b then
begin
a*=a;
b*=b;
end else
begin
a+=a;
b+=b;
end;
end.
a,b:integer;
begin
readln(a,b);
if agt;b then
begin
a*=a;
b*=b;
end else
begin
a+=a;
b+=b;
end;
end.
142
Смежные вопросы:
