Pascal abc. Последовательно вводятся 10 целых чисел. Найти произведение тех, которые кратны 5. (Сделать через for)
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Сколько нулей в сумме чисел 101112 и 100102?
Автор: Batrakova-Anna
Запрос: <=90 Какие результаты можно получить?
Автор: boykovandrew6663
Какое значение будет иметь переменная i после работы алгоритма, описанного в блок-схеме.
Автор: Татьяна_Вологжин
Сколько натуральных чисел расположено в интервале 41 восьмой степени x e2 16 степени
Автор: Белов_Лукина1339
Найдите значение логического выражения: (-1v1)^(1v-1)^(-1v0)
Автор: impuls20125948
Постройте диаграмму Эйлера-Венна: А ⋃ ¯B ∩ C
Автор: aci2003
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.