Чему будут равны значения переменных после завершения фрагмента программы?

@Кенга · Регистрация: 28.11.2019

Author24 — интернет-сервис помощи студентам

Чему будут равны значения переменных x, y после завершения фрагмента программы:

Pascal

x:=1234;
for i:=1 to 4 do 
    begin 
      y:=y+x mod 10;
      x:=x div 10
    end;

?
Указание: x mod 10 – выделяет цифру младшего разряда числа, x div 10 – "отбрасывает" эту выделенную цифру.

@ValentinNemo · 02.12.2019, 02:25

Pascal

program Project1;
var
  x,y,i: integer;
begin
  x:= 1234;
  for i:=1 to 4 do
    begin
      y:= y + x mod 10;
      x:= x div 10
    end;
  writeln('x = ',x,'; y = ',y);
  Readln;
end.

	02.12.2019, 02:25