Пожалуйста, представьтесь:

Оператор повторения for

1. Сколько раз будет выполнен оператор write?:

var i,j,s:integer;
begin
  s:=0;
   for  i:=5  to  24  do
      begin s:=s+1;
      write(i:4,s:5);
   end;
end.

0

5

 24

20

2. Определите значение переменной х после выполнения программы:

var i,n,x:integer;
begin
  n:=5;
  x:=0;
  for  i:=1  to  n  do  x:=i;
  writeln(x);
end.

3. Какие из следующих алгоритмов предназначены для нахождения суммы квадратов чисел, лежащих в диапазоне от 5 до 15:

var i,n,k,s:integer;
      begin
      n:=5; k:=15; s:=0;
      for i:=n to k do s:=s+i*i*i;
      writeln(s);
      end.

var i,n,k,s,a:integer;
      begin
      n:=5; k:=15; s:=0;
      for i:=n to k do begin a:=i*i; s:=s+a; end;
      writeln(s);
      end.

var i,n,k,s : integer;
      begin
      n:=5; k:=15; s:=0;
      for i:=n to k do s:=s+i*i;
      writeln(s);
      end.

var i,n,k,s : integer;
      begin
      n:=5; k:=15; s:=0;
      for i:=n to k do s:=i*i;
      writeln(s);
      end.

var i,n,k,s : integer;
      begin
      n:=30; k:=1500; s:=0;
      for i:=5 to 15 do s:=s+i*i;
      writeln(s);
      end.

4. Чему будет равно s после выполнения программы:

var i,n,k,s,a:integer;
begin
  s:=0;
  for  i:=3 to  9 do   if  i mod 3 = 0   then   s:=s+i;
  writeln(s);
end.

18

42

24

5. Какой результат будет выведен в процессе выполнения программы:

var c1,c2,i,n,kol: integer;
begin
  n:=6;
  for i:=10 to 99 do
      begin   c1:=i div 10;   c2:=i mod 10;
                   if c1+c2=n then kol:=kol+1;
     end;
  writeln(kol);
end.