End.
12) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
Begin
n:= 4;
s:= 0;
while n <= 8 do begin
s:= s + n;
n:= n + 1
end;
Write(s)
End.
13) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
Begin
n:= 4;
s:= 0;
while n <= 13 do begin
s:= s + 15;
n:= n + 1
end;
Write(s)
End.
14) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
Begin
n:= 1;
s:= 0;
while n <= 20 do begin
s:= s + 33;
n:= n + 1
end;
Write(s)
End.
15) (http://ege.yandex.ru) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
Begin
n:= 1;
s:= 0;
while n <= 101 do begin
s:= s + 7;
n:= n + 1
end;
Write(s)
End.
16) (http://ege.yandex.ru) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
Begin
n:= 0;
s:= 512;
while s >= 0 do begin
s:= s - 20;
n:= n + 1
end;
Write(n)
End.
17) (http://ege.yandex.ru) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
Begin
n:= 24;
s:= 0;
while n <= 28 do begin
s:= s + 20;
n:= n + 2
end;
Write(s)
End.
18) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
Begin
n:= 12;
s:= 5;
while n <= 25 do begin
s:= s + 12;
n:= n + 2
end;
Write(s)
End.
19) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
Begin
n:= 2;
s:= 35;
while n <= 25 do begin
s:= s + 20;
n:= n + 5
end;
Write(s)
End.
20) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
Begin
n:= 4;
s:= 15;
while s <= 250 do begin
s:= s + 12;
n:= n + 2
end;
Write(n)
End.
21) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
Begin
n:= 0;
s:= 0;
while s <= 35 do begin
n:= n + 1;
s:= s + 4
end;
Write(n)
End.
22) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
Begin
n:= 0;
s:= 0;
while s <= 256 do begin
s:= s + 25;
n:= n + 1
end;
Write(n)
End.
23) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
Begin
n:= 0;
s:= 0;
while s <= 365 do begin
s:= s + 33;
n:= n + 5
end;
Write(n)
End.
24) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
Begin
n:= 0;
s:= 0;
while s <= 365 do begin
s:= s + 36;
n:= n + 10
end;
Write(n)
End.
25) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
Begin
n:= 1;
s:= 0;
while s <= 365 do begin
s:= s + 36;
n:= n * 2
end;
Write(n)
End.
26) Определите, что будет напечатано в результате работы следующего фрагмента программы:
program B05;
var n, s: integer;
Begin
n:= 0;
s:= 1;
while s <= 1000 do begin
s:= s * 3;
n:= n + 3;
end;
Write(n)
End.
27) При каком наименьшем введенном числе d после выполнения программы будет напечатано 67?
var n, s, d: integer;
Begin
readln(d);
n:= 2;
s:= 0;
while s <= 365 do begin
s:= s + d;
n:= n + 5
end;