Pascal abc. Последовательно вводятся 10 целых чисел. Найти произведение тех, которые кратны 5. (Сделать через for)
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
: по схеме составить формулу функции f, таблицу истинности, скнф, сднф.
Автор: asnika1989
Составить программу в Python, которая проверяет четные и нечетные числа.
Автор: Daulyatyanov1266
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.