Найти произведение чисел в диапазоне от 1 до 23 с шагом 3. Т.е. 1, 4, 7, ...

Question

Найти произведение чисел в диапазоне от 1 до 23 с шагом 3. Т.е. 1, 4, 7, ...

Answer 1

Var i,b:integer;

begin

b:=1;

i:=1;

while i<23 do begin<br>
b:=b*i;

i:=i+3

end;

print(b);

end.