s : s + 7 n : n + 1. end


1 Вариант
№ 3199. Определите, что будет напечатано в результате работы следующего фрагмента программы: 
var k, s: integer;
begin    s:=0;    k:=1;
    while s < 66 do begin
        k:=k+3;
        s:=s+k;
    end;
    write(k);
end.
№ 3239. Определите, что будет напечатано в результате работы следующего фрагмента программы: 
var k, s: integer;
begin    s:=0;    k:=0;
    while k < 30 do begin
        k:=k+3;
        s:=s+k;
    end;
    write(s);
end.
№ 3241. Определите, что будет напечатано в результате работы следующего фрагмента программы: 
var n, s: integer;
begin    n := 1;    s := 0;
    while n <= 101 do begin
        s := s + 7;
        n := n + 1
    end;
    write(s)end.
№ 3242. Определите, что будет напечатано в результате работы следующего фрагмента программы: 
var n, s: integer;
begin    n := 2;    s := 35;
    while n <= 25 do begin
        s := s + 20;
        n := n + 5
    end;
    write(s)end.
№ 3243. Определите, что будет напечатано в результате работы следующего фрагмента программы: 
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.
№ 3253. Определите, что будет напечатано в результате работы следующего фрагмента программы: 
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.
2 Вариант
№ 3240. Определите, что будет напечатано в результате работы следующего фрагмента программы: 
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.
№ 3246. Определите, что будет напечатано в результате работы следующего фрагмента программы: 
var k, s: integer;
begin    s:=0;    k:=1;
    while k < 11 do begin
        s:=s+k;
        k:=k+1;
    end;
    write(s);
end.
№ 3244. Определите, что будет напечатано в результате работы следующего фрагмента программы: 
var n, s: integer;
begin    n := 24;    s := 0;
    while n <= 28 do begin
        s := s + 20;
        n := n + 2
    end;
    write(s)end.
№ 3245. Определите, что будет напечатано в результате работы следующего фрагмента программы: 
var n, s: integer;
begin    n := 3;    s := 0;
    while n <= 7 do begin
        s := s + n;
        n := n + 1
    end;
    write(s) end.
№ 5088. Определите, что будет напечатано в результате выполнения программы. 
var n, s: integer;
begin    n := 1;    s := 26;
    while s <= 205 do
    begin        s := s + 20;
        n := n * 2;
    end;
    write(n) end.
№ 5056. Определите, что будет напечатано в результате выполнения программы.
var n, s: integer;
begin    n : = 1;    s : = 6;
    while s <= 365 do
    begin        s : = s + 36;
        n : = n * 2
    end;
    write(n)
end.
3 Вариант№ 3247. Определите, что будет напечатано в результате работы следующего фрагмента программы: 
var k, s: integer;
begin    s:=5;    k:=0;
    while k < 15 do begin
        k:=k+2;
        s:=s+k;
    end;
    write(s); end.
№ 3249. Определите, что будет напечатано в результате работы следующего фрагмента программы: 
var n, s: integer;
begin    n := 4;     s := 0;
    while n <= 8 do begin
        s := s + n;
        n := n + 1
    end;
    write(s) end.
№ 3248. Определите, что будет напечатано в результате работы следующего фрагмента программы: 
var n, s: integer;
begin    n := 12;    s := 5;
    while n <= 25 do begin
        s := s + 12;
        n := n + 2
    end;
    write(s) end.
№ 3254. Определите, что будет напечатано в результате работы следующего фрагмента программы: 
var n, s: integer;
begin    n := 0;    s := 512;
    while s >= 0 do begin
        s := s - 20;
        n := n + 1
    end;
    write(n)
end.
№ 5277. Определите, что будет напечатано в результате выполнения программы:
var n, s: integer;
begin    n := 30;    s := 1;
    while s < 500 do
    begin        s := s * 2;
        n := n + 10
    end;
    write(n);
end.
№ 5309. Определите, что будет напечатано в результате выполнения программы:
var n, s: integer;
begin    n : = 50;     s := 1;
    while s < 1000 do
    begin        s := s * 2;
        n := n + 10
    end;
    write(n);
end.
4 Вариант
№ 3250. Определите, что будет напечатано в результате работы следующего фрагмента программы: 
var k, s: integer;
begin    s:=0;    k:=0;
    while s < 100 do begin
        s:=s+k;
        k:=k+4;
    end;
    write(k); end.
№ 3255. Определите, что будет напечатано в результате работы следующего фрагмента программы: 
var k, s: integer;
begin    s:=2;    k:=2;
    while s < 50 do begin
        s:=s+k;
        k:=k+2;
    end;
    write(k); end.
№ 3774. Определите, что будет напечатано в результате выполнения программы: 
var n, s: integer;
begin    n := 4;    s := 0;
    while n <= 13 do
    begin        s := s + 15;
    n := n + 1;
    end;
    write(s) end.
№ 3775. Определите, что будет напечатано в результате работы следующего фрагмента программы: 
var n, s: integer;
begin    n := 3;    s := 0;
    while n <= 26 do
    begin        s := s + 6;
        n := n + 1
    end;
    write(s) end.
№ 6957. Определите, что будет напечатано в результате выполнения программы.
program B05;
var n, s: integer;
begin    n := 1;    s := 0;
    while s <= 1024 do
    begin        s := s + 128;
        n := n * 2;
    end;
    write(n) end.
№ 6989. Определите, что будет напечатано в результате выполнения программы:
var n, s: integer;
begin    n := 1;    s := 0;
    while s <= 1024 do
    begin        s := s + 256;
        n := n * 2;
    end;
    write(n) end.

Приложенные файлы

  • docx 7716000
    Размер файла: 27 kB Загрузок: 0

Добавить комментарий