Дан программный код: 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?

Спасибо!

А с этим не поможешь? Чему будет равно значение переменной 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.

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