1. Информатика
  2. Найти произведение чисел, кратных

Найти произведение чисел, кратных 5 и не оканчивающихся на 0 в массиве из 10 элементов, принимающих значение от 20 до 30.

Ravik2K Ravik2K    3   01.10.2019 05:00    0

Ответы
vasinmihailov vasinmihailov  09.10.2020 07:03
PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(10, 20, 30);

 a.Println;

 var p := 1;

 foreach var t in a do

   if t = 25 then p *= 25;

 if p = 1 then p := 0;

 p.Println;

end.

24 27 25 24 27 21 27 25 26 2515625
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
jassibrony jassibrony  15.01.2020 18:26
Как эта формула будет выглядеть в excel? вычислить сумму [tex]\frac{sin(1)}{cos(2)}+ \frac{sin(2)}{cos(3)}+ +\frac{sin(9)}{cos(10)}[/tex]...
Дашанеси Дашанеси  11.05.2020 10:37
Какому из операторов в блок-схеме алгоритма соответ­ствует прямоугольник? Варианты ответов k=k+1. for (i=1; i 10; i++). if else. cout sum= cin...
sir58k sir58k  11.05.2020 10:36
1. Выберите 3 вида ссылки:a) переход на новую страницуb) сноскиc) гиперссылкиd) изменение разметки документаe) оглавление​...
vlad0805 vlad0805  11.05.2020 10:36
Как влияет использование гиперссылок на работу с документом в текстовом редакторе? Для чего создается закладка в документе?...
Avetodor Avetodor  20.02.2021 23:51
Спробуйте у зошиті скласти порівняльну таблицю особистісних якостей, політичних позицій, військово-політичної діяльності Богдана Хмельницького та одного з цих діячів.​...
ляпрпммм ляпрпммм  20.02.2021 23:50
Ну тут думаю всё ясно . Просто решите . 256+144:16-8=......
TaisiyaMe TaisiyaMe  20.02.2021 23:50
діагоналі паралелограма утворюють з меншою стороною кути 75 и 45 градусів​. Найти ВD...
Димка553 Димка553  20.02.2021 23:50
Встановіть відповідність між рівняннями та їх коренями на проміжку [0;π/2]: 1) sin2x=√3/22) cos3x=-1/23)tg(2x+π/3)=√3А) π/6Б) π/6, π/3В) 0Г) 0, π/2Д) 2π/9, 4π/9​...
bohdanaznetishyna bohdanaznetishyna  20.02.2021 23:50
Составьте требование-претензию к продавцу, у которого вы приобрели некачественный товар....
Volovoy00T Volovoy00T  20.02.2021 23:50
те кто не знает проигнорируйте задача по математического анализа​...

Популярные вопросы