ДанилКотик
14.03.2021 11:16

Pascal abc. Последовательно вводятся 10 целых чисел. Найти произведение тех, которые кратны 5. (Сделать через for)

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
мандаринылюблю
12.02.2021 19:38

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.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота