Дана программа на языке ПАСКАЛЬ: var n i S r : integer; BEGIN n:=1234; S:=0; while n>0 do begin ...: ответ на тест 179167 - Математика и информатика

Дана программа на языке ПАСКАЛЬ:
 var n, a, b, c, i : integer;
BEGIN
   n:=7; a:=0; b:=1;
     for i=2 to n do
                     begin
                       c:=a+b; a:=b; b:=с
                     end;
    writeln (с);
END.
Тогда результатом работы этой программы является ...

Дана программа на языке ПАСКАЛЬ:
 var n, S, x, r : integer;
BEGIN
   n:=252; x:=n; S:=0;
     while n>0 do
            begin
              r:=n mod 10;
              n:=n div 10;
              S:=S*10 +r;
           end;
      r:=x-r;
    writeln (r);
END.
Тогда результатом работы этой программы является ...

Дана программа на языке ПАСКАЛЬ:
 var k, n, i, d : integer;
BEGIN
   d:=5; n:=50; k:=0;
     for i:=1 to n do
             if i mod d=0 then k:=k+1;
    writeln (k);
END.
Тогда результатом работы этой программы является ...

Дана программа на языке ПАСКАЛЬ:
 var n, S, x, r : integer;
BEGIN
   n:=252; x:=n; S:=0;
     while n>0 do
            begin
              r:=n mod 10;
              n:=n div 10;
              S:=S*10 +r;
           end;
      r:=x-r;
    writeln (r);
END.
Тогда результатом работы этой программы является ...

Дана программа на языке ПАСКАЛЬ:
 var n, S, i : integer;
BEGIN
   n:=28; S:=n;
     for i:=1 to n-1 do
            if n mod i=0 then S:=S-i;
    writeln (S);
END.
Тогда результатом работы этой программы является ...

Дана программа на языке ПАСКАЛЬ:
 var n, S, x : integer;
BEGIN
   n:=234; S:=0;
     while n>0 do
               begin
                 x:=n mod 10;
                 S:=10*S+x;
                 n:=n div 10
              end;
    writeln (S);
END.
Тогда результатом работы этой программы является ...