Найти произведение чисел в диапазоне от 1 до 23 с шагом 3. Т.е. 1, 4, 7, ...
Найти произведение чисел в диапазоне от 1 до 23 с шагом 3. Т.е. 1, 4, 7, ...
Гость
Ответ(ы) на вопрос:
Гость Var i,b:integer;
begin
b:=1;
i:=1;
while i<23 do begin
b:=b*i;
i:=i+3
end;
print(b);
end.
Не нашли ответ?
Похожие вопросы