Не понимаю почему выдается такой ответ - Pascal

Формулировка задачи:

сама программа вот

program lol1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var  n,x,y : integer;
 
begin
  n:=8;y:=-3;
  for x:=-y to n-1 do
  begin
  if x mod 3 = 1 then
  y:=x+3;
  write(y);
  end;
  readln;
end.

на выходе получается -377710 каким образом оно дошло до этого числа? разве там не должно идти от 3 до 7 по циклу и крайний ответ выходить 10 ?

Решение задачи: «Не понимаю почему выдается такой ответ»

textual
                            Листинг программы 
                        
                            write(y,' ');

Оцени полезность:

14 голосов , оценка 3.857 из 5

Похожие ответы