Дан программный код: program my3; var N:longint; A,С:integer; begin writeln ('введите...

Question

Дан программный код: program my3; var N:longint; A,С:integer; begin writeln ('введите двузначное число:'); readln(N); A:= N div 100; C:= N mod 10; if (A=7) or (C=7) then N:= N*N; write(N); end. Каков результат работы программы при введении исходного числа N=17?

Answer 1

Результат будет равен 289

---

Comments

Спасибо!

---

А с этим не поможешь? Чему будет равно значение переменной X после выполнения последовательности операторов присваивания?
x: = 5;
y: = x* 2;
x: = y * y + y;
x: = x + y;

---

А всё, разобралась, не надо.

---

var x,y:integer;
begin

x:=5;
y:=x*2;
x:=y*y+y;
x:=x+y;

write('Результат:',y);{Результат 10}
end.

Answer 2

Не можно было просто переписать код в паскаль?

---