Pascal abc. Последовательно вводятся 10 целых чисел. Найти произведение тех, которые кратны 5. (Сделать через for)
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
1. Составьте алгоритм задачи, табличное представлениерешения которой приведено ниже:
Автор: AleksandraRuslan504
Одна из важных характеристик разрабатываемого по
Автор: Svetlana395
Які є інформаційні процеси
Автор: мария Кузив1393
Знайти суму цілих доданих чисел більших 20, менших 100 і кратних 3
Автор: Dmitrievna405
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.