Самостоятельная работа "Цикл с заданным числом повторений"

Самостоятельная работа по теме

«Цикл с заданным числом повторений».

Язык программирования:  Pascal

Вариант 1

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

Var s,k:integer;

begin

s:=0;

For k:=1 to 12 do s:=s+к;

writeln(s);

end.

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

Var s,k:integer;

begin

s:=12;

For k:=5 to 11 do s:=s+3;

writeln(s);

end.

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

Var s,k:integer;

begin

s:=100;

For k:=8 downto 3 do s:=s-5;

writeln(s);

end.

Вариант 2

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

Var s,k:integer;

begin

s:=0;

For k:=0 to 9 do s:=s+4;

writeln(s);

end.

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

Var s,k:integer;

begin

s:=123;

For k:=10 downto 3 do s:=s-k;

writeln(s);

end.

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

Var s,k:integer;

begin

s:=129;

For k:=13 downto 6 do s:=s-k;

writeln(s); end.

Вариант 3

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

Var s,k:integer;

begin

s:=56;

For k:=2 to 7 do s:=s-k;

writeln(s);

end.

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

Var s,k:integer;

begin

s:=0;

For k:=7 to 14 do s:=s+2;

writeln(s);

end.

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

Var s,k:integer;

begin

s:=152;

For k:=8 downto 1 do s:=s-k;

writeln(s);

end.

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

Var s,k:integer;

begin

s:=2;

For k:=-1 to 6 do s:=s*k;

writeln(s);

end.

8

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

Var s,k:integer;

begin

s:=86;

For k:=4 to 9 do

if k mod 2 =0 then s:=s-k;

writeln(s);

end.

9

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

var k, s: integer; 

begin 

s:=0; 

k:=3; 

while s

k:=k+3; 

s:=s+k; 

end; 

write(k); 

end.

10

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

var k, s: integer; 

begin 

s:=27; 

k:=0; 

while s

s:=s+k;

k:=k+1; 

end; 

write(k+1); 

end.

11

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

var k, s: integer; 

begin 

s:=2; 

k:=0; 

while s

s:=s*4;

k:=k+1; 

end; 

write(k); 

end.

12

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

var k, s: integer; 

begin 

s:=128; 

k:=5; 

Repeat

s:=s-k;

k:=k-1;

Until k

write(s); 

end.

13

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

var k, s: integer; 

begin 

s:=128; 

k:=4; 

Repeat

s:=s-k;

k:=k+1;

Until k 12;

write(s); 

end.