1)найти сумму первых k последовательных нечетных чисел. написать программу в паскале. 2)вывести на экран натуральные нечетные числа от 5 до 55.тоже паскаль 3)найти произведение последовательных натуральных чисел от n до m.написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль

1)

s : = 0;

for i : = 1 to k do

begin

  if i mod 2 < > 0 then

      s: = s + i;

end;

2)

for i : = 5 to 55 do

begin

  if i mod 2 < > 0 then

      writeln(i);

end;

3)

s : = 1;

for i : = n to m do

begin

  s: = s * i;

end;

4)

s : = 0;

for i : = 10 to 15 do

begin

        s: = s + i;

end;

 

обрамления там везде одинаковые

type  mas = array [1..5, 1..10] of integer; //объявляем тип массива

 

var  m: mas;   //переменная типа массива  i, j: integer;   //переменные для цикла

 

procedure cubemas(var m: mas); //процедура возведения в кубvar   i, j: integer;   //локальные переменные цикла в процедуре

begin  write('измененный массив: ');   for i: = 1 to 5 do    for j: = 1 to 10 do    begin      m[i, j]: = sqr(m[i, j]) * m[i, j];   //возводим элемент массива в куб      write('m[', i, ', ', j, '] = ', m[i, j], '   ');   //печатаем элемент массива    end;   //конец цикла  writeln;   //перевод на новую строкуend;   //конец процедуры

 

begin  write('исходный массив: ');   for i: = 1 to 5 do    for j: = 1 to 10 do    begin      m[i, j]: = random(40) - 20;   {присваиваем элементу массива случайное значение из промежутка [-20, 20] }      write('m[', i, ', ', j, '] = ', m[i, j], '   ');   //печатаем элемент массива    end;   //конец цикла  writeln;   //перевод на новую строку  cubemas(m);   //вызываем процедуру возведения в кубend. //конец программы

заметим, что м и n не меняются. тогда перепишем программу, заменив все буквы м на 2, а n на 10:   sum=0  k=1  нц пока к< 10  нц для i от к до к  sum=sum+i  кц  к=к+2  кц  строка цикл для i от к до к означает, что он пройдет 1 раз - для i=k. опять перепишем программу, убрав этот цикл:   sum=0  k=1  нц пока к< 10  sum=sum+к  к=к+2  кц  теперь становится ясно, что делает эта программа - она складывает все нечетные числа, меньшие 10.  sum=1+3+5+7+9=25  ответ: 25.