Составьте алгоритм для вычисления произведения чисел 5, 10, . у меня есть начало, вот оно закончите : r; =5, n: =55; i: =i+5.

можно использовать конструкцию

h=1;

for i= 5 to 55 step 5 do

h=h*i;

 

извините, могут быть неточности в синтаксисом, паскаль использовал лет 15 назад,

var i,s: integer;

begin

i: =5; s: =1;

  while i< =55 do begin

s: =s*i;

i: =i+5;  

end. 

writeln(s);

end.

 

 

 

 

 

 

 

 

 

program zadacha; var      matriza: array[1..11, 1..11] of integer;       i, j : integer; begin      randomize;       for i: =1 to 11 do            for j: =1 to 11 do                  matriza[i][j] : = random(10);             for i: =1 to 11 do      begin            for j: =1 to 11 do                  write(matriza[i][j], ' ');             writeln('');       end;                   readln; end.

А) цикл  for i: =0 to 5 do s: =s+1; выполнится 6 раз. переменная s будет равна 6,так как действие s: =s+1 будет увеличивать значение переменной s на 1 с каждым шагом цикла, а значение переменной i будет равно 5, так как for i: =0 to 5 do означает,что цикл будет выполняться, пока значение i, с начала цикла равное 0, не достигнет значения 5.s=6 , i = 5.б) в данном случае цикл не выполнится ни разу, так как значение n меньше значения i и используется команда to :   for i: =2 to n do.команда to используется для цикла,значение которого идет вверх. в данном случае, чтобы алгоритм выполнился хотя бы раз, нужно было использовать команду downto, которая работает в сторону уменьшения.так как алгоритм не будет выполнен, то и значения переменных не изменятся: s=1, i= 2.