B9 - Программы с циклами

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

Var s,k: integer;
Begin
  s := 0;
  for k := 6 to 12 do
    s := s+10;
  writeln(s);
End.

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

Var s,k: integer;
Begin
  s := 0;
  for k := 6 to 10 do
    s := s+10;
  writeln(s);
End.

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

Var s,k: integer;
Begin
  s:=0;
  for k:=1 to 11 do
    s:=s+12;
  write(s);
End.

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

var s, k:integer;
begin
  s := 0;
  for k := 2 to 12 do
    s := s + 11;
  writeln (s);
end.

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

var s, k:integer;
begin
  s:= 100;
  for k:= 0 to 10 do
    s:= s - 5;
  writeln (s);
end.

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

Var s,k: integer;
Begin
  s := 0;
  for k := 14 to 18 do
    s := s+7;
  writeln(s);
End.

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

var s, k:integer; 
begin 
  s := 0 ;
  for k:= 4 to 11 do 
    s := s + k ; 
  writeln (s); 
end.

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

var s, n: integer;
begin
  s := 1;
  for n := 5 to 8 do
    s := s * 3;
  write(s);
end.

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

Var k, і: integer; 
Begin 
  k := 4;
  For і := 1 to 3 do 
    k := 2*k + і; 
  Writeln(k); 
End.

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

Var у,і: integer; 
Begin
  У := 0;
  For і := 1 to 3 do
    у := у + 4*і; 
  Writeln(у); 
End.