Найти произведение всех целых чисел из промежутка от 3 до 33 кратных 3 - Pascal ABC

Формулировка задачи:

Помогите пожалуйста Найти произведение всех целых чисел из промежутка от 3 до 33 кратных 3

Код к задаче: «Найти произведение всех целых чисел из промежутка от 3 до 33 кратных 3 - Pascal ABC»

textual
var  i,p:integer;
begin
p:=1;
for i:=3 to 33 do
if i mod 3=0 then p:=p*i;
write('p=',p);
end.

13   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ