Pascal abc. Последовательно вводятся 10 целых чисел. Найти произведение тех, которые кратны 5. (Сделать через for)
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Чим відрізняються навчальні проекти від інших
Автор: chermen40
Запишите алгоритм действий в скетчап мейк для создания квадрата
Автор: Шуршилина_Ильич
Дано: b∨b∧c. первым выполняется 1) b∨b∧c 2) b∧c 3) b∨b
Автор: filantropagv4
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.