1. Найти произведение положительных чисел на промежутке (5;100) 2. Дана последовательность 10 чисел. Найти количество чисел = 5

Нужна программа и блок-схема.
Сложные алгоритмы.

polimur9 polimur9    3   29.10.2021 14:05    4

Ответы
tatyana171283t tatyana171283t  29.10.2021 14:10

Объяснение:

var

 n, i, k, m: integer;

 

begin

 k := 0;

 readln(n);

 for i := 1 to n do

 begin

   readln(m);

   if (m mod 5 = 0) and (m mod 10 = 0) then

     inc(k)

 end;

 writeln(k);    

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика