Предмет: Информатика,
автор: rinathasanov1
Напиши те программу в Паскале :
Даны x и y .Если x>y то число заменить их квадратами .В противном случае число удвоить . ОЧЕНЬ НАДО !!
Ответы
Автор ответа:
0
var
a,b:integer;
begin
readln(a,b);
if a>b then
begin
a*=a;
b*=b;
end else
begin
a+=a;
b+=b;
end;
end.
a,b:integer;
begin
readln(a,b);
if a>b then
begin
a*=a;
b*=b;
end else
begin
a+=a;
b+=b;
end;
end.
Интересные вопросы
Предмет: Литература,
автор: ilonahivric3
Предмет: Геометрия,
автор: motobike007y
Предмет: Литература,
автор: gawgaw2006
Предмет: Математика,
автор: ritasinicyna01
Предмет: Математика,
автор: lyublyukontrasi