Pascal abc. Последовательно вводятся 10 целых чисел. Найти произведение тех, которые кратны 5. (Сделать через for)

Кольцова

30.01.2022

var

i,a,pr:integer;

begin

pr:=1;

for i:=1 to 10 do

begin

readln(a);

if a mod 5 = 0 then

pr:=pr*a;

end;

writeln(pr);

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Pascal abc. Последовательно вводятся 10 целых чисел. Найти произведение тех, которые кратны 5. (Сделать через for)

▲