1. Информатика
  2. Pascal abc. Последовательно

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

AngreilKyzmun AngreilKyzmun    2   06.12.2020 03:00    3

Ответы
sasha2054 sasha2054  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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
olik29 olik29  14.04.2020 19:50
1.Запиши слово, которое составит Исполнитель по алгоритму, двигаясь по линейке, начиная от «личика»: П. Д. Т. О. С. Р. Л. Е. И. К. Н. А . 16 17 18 19 20 21 22 23 24 25 26 27...
Renatka96 Renatka96  16.12.2020 18:30
1.Какое число получится в результате действия 517 mod 100 2.Какое число получится в результате действия 1285 mod 10 3.Какое число получится в результате действия 1285 div 100...
RaidFrame RaidFrame  16.12.2020 18:30
Одно из возможных применений смешанной реальности — программы для планирования жизненного сценария. Они учитывают не только список важных событий, но и внешние обстоятельства,...
маринка150 маринка150  15.06.2019 02:40
Глупому человеку, простейшая , а решить не могу. автоматическое устройство осуществило перекодировку информационного сообщения на языке, первоначально записанного в 8-битном...
Лтшпамльз Лтшпамльз  15.06.2019 02:40
Дан массив е(14). сформировать массив f, состоящий из номеров положительных элементов массива е. массивы е и f распечатать.сделать на паскале...
unicorn337228 unicorn337228  15.06.2019 02:40
Объем сообщения 9 кбайт. известно, что данное сообщение содержит 9216 символов. какова максимально возможная мощность алфавита?...
balashik8379 balashik8379  15.06.2019 02:40
Дан массив из 15 чисел посчитать количество тех чисел, у которых чётный индекс. ....
VanilRio VanilRio  15.06.2019 02:40
Информационный объем предложения третья информационная революция произошла в конце xix века и была связана с изобретением электричества . составляет 103 бита.определите ,сколькими...
komissssarov komissssarov  15.06.2019 02:40
Дан массив целых чисел из 12 элементов. найти произведение элементов лежащих в промежутке [-2,10]....
Dertylt Dertylt  15.06.2019 02:40
Уисполнителя аккорд две команды, которым присвоены номера: 1. отними 1 2. умножь на x(x – неизвестное положительное число) выполняя первую из них, аккорд отнимает от числа...

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