Напиши те программу в Паскале : Даны x и y .Если x>y то число заменить их квадратами .В...

Question

Напиши те программу в Паскале :
Даны x и y .Если x>y то число заменить их квадратами .В противном случае число удвоить . ОЧЕНЬ НАДО !!

Answer 1

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.

Comments

Или тебе не нравится реализация квадрата и удвоения?

---

Он не выполняет свою работу?*

---

он выполняет работу я ввожу данные 2 он мне так и ставить 2

---

просто как та странно раз там недолжно быть типа x=x*x y=y*y-это типа удвоение

---

х:=x*x // x*=x это возведение в квадрат

---

а как тогда удвоить ?

---

x и y удвоить ?

---

x:=x*2 // x+=x; мы берем значение х и прибавляем к нему его же

---

а сможешь еще одну написать программу ?

---

только с другой задачей