
Chagenlak
6 год назад
Напиши те программу в Паскале :
Даны 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
Нужен срочно ответ?
1 Зарегистрируйся
2 Пополни баланс баллов
3 Назначь баллы за ответ
Чем больше баллов, тем выше веротяность скорого ответа
Смежные вопросы: