Вычеслить произведение нечётных чисел на отрезке от 30 до 90

ИзмМалика ИзмМалика    1   29.05.2019 11:39    2

Ответы
nekitpundya2256 nekitpundya2256  01.10.2020 14:07

program raf105;

var

 i,pro: integer;

begin

 pro:=1;

 for i:=30 to 90 do

   if i mod 2 <> 0

     then pro:= pro*i;

 writeln('Произведение нечётных от 30 до 90: ',pro);

end.

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