Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

    s:=1;

    k:=0;

    while k < 13 do begin

        s:=s+2*k;

        k:=k+4;

    end;

    write(s+k);

end.


Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

    s:=0;

    k:=0;

    while s < 80 do begin

        s:=s+2*k;

        k:=k+4;

    end;

    write(s);

end.


Определите, что будет напечатано в результате работы следующего фрагмента программы:

var n, s: integer;

begin

    n := 3;

    s := 0;

    while n <= 7 do begin

        s := s + n;

        n := n + 1

    end;

    write(s)

end.


Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

    s:=0;

    k:=1;

    while k < 11 do begin

        s:=s+k;

        k:=k+1;

    end;

    write(s);

end.


Определите, что будет напечатано в результате работы следующего фрагмента программы:

var n, s: integer;

begin

    n := 4;

    s := 0;

    while n <= 8 do begin

        s := s + n;

        n := n + 1

    end;

    write(s)

end.


Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

    s:=0;

    k:=0;

    while k < 12 do begin

        s:=s+2*k;

        k:=k+3;

    end;

    write(s);

end.


Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

s:=3;

k:=1;

while k < 25 do begin

s:=s+k;

k:=k+2;

end;

write(s);

end.


 Определите, что будет напечатано в результате выполнения программы

Паскаль

var n, s: integer;

begin

  n := 4;

  s := 0;

  while n <= 8 do

  begin

   s := s + 15;

    n := n + 1

  end;

  write(s)

end.

Задачи срешениями

b5.docx
Microsoft Word Document 16.0 KB