var
i,a,pr:integer;
begin
pr:=1;
for i:=1 to 10 do
readln(a);
if a mod 5 = 0 then
pr:=pr*a;
end;
writeln(pr);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Pascal abc. Последовательно вводятся 10 целых чисел. Найти произведение тех, которые кратны 5. (Сделать через for)
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.