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

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

Задать свой вопрос
2 ответа
Не можно было просто переписать код в паскаль?
Итог будет равен 289
Агата Крапина
Спасибо!
Светлана Цыганчук
А с этим не поможешь? Чему будет равно значение переменной X после выполнения последовательности операторов присваивания?x: = 5;y: = x* 2;x: = y * y + y;x: = x + y;
Ilja Usenkoa
А всё, разобралась, не надобно.
Тимур
var x,y:integer; begin x:=5;y:=x*2;x:=y*y+y;x:=x+y; write('Итог:',y);Итог 10 end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт