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.
Приложенные файлы
