Задачи на тему "Программирование циклов с заданным числом повторений"

Циклы в Паскале

Вариант 1.

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

var s,k: integer;

begin

 s := 0;

 for k := 5 to 12 do

   s := s + 7;

 write(s);

end.

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

var s, k: integer;

begin

 s := 0;

 for k := 3 to 10 do

   s := s + k;

 write(s);

end.

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

var s,k: integer;

begin

 s := 1;

 for k := 1 to 5 do

   s := s * k;

 write(s);

end.

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

var s, k : integer;

begin

 s := 0;

 for k := 3 to 8 do

   s := s + 3 * k;

 write(s);

end.

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

var m, n : integer;

begin

   m := 50;

   for n := 1 to 7 do

      m := m – 7;

 write(m);

end.

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

var s, n: integer;

begin

s := 1;

for n := 3 to 8 do

s := s * 2;

write(s);

end.

Циклы в Паскале

Вариант 2.

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

var s, k:integer;

begin

  s := 0;

  for k := 2 to 12 do

    s := s + 11;

  writeln (s);

end.

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

var s, k:integer;

begin

  s := 0;

  for k := 4 to 11 do

    s := s + k;

  writeln (s);

end. 

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

var s, n: integer;

begin

s := 2;

for n := 2 to 5 do

s := s * n;

write(s);

end.

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

var s, k: integer;

begin

  s := 0;

  for k := 2 to 9 do

    s := s + 2 * k;

  write(s);

end.

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

var s, k:integer;

begin

  s := 100;

  for k := 0 to 10 do

  s := s - 5;

  writeln (s);

end.

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

var s, n: integer;

begin

s := 1;

for n := 5 to 8 do

s := s * 3;

write(s);

end.

Циклы в Паскале

Вариант 3.

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

var s, k:integer;

begin

  s := 0;

  for k := 3 to 10 do

    s := s + 8;

  writeln (s);

end.

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

var s, k:integer;

begin

  s := 0;

  for k := 2 to 9 do

    s := s + k;

  writeln (s);

end. 

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

var s, n: integer;

begin

s := 3;

for n := 3 to 6 do

s := s * n;

write(s);

end.

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

var s, n: integer;

begin

s := 2;

for n := 2 to 5 do

s := s + n * 2;

write(s);

end.

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

var s, k:integer;

begin

  s := 80;

  for k := 0 to 10 do

  s := s - 6;

  writeln (s);

end.

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

var s, n: integer;

begin

s := 2;

for n := 4 to 7 do

s := s * 4;

write(s);

end.