Вычеслить произведение нечётных чисел на отрезке - вопрос №21567623090 от milanademidova1 11.08.2020 13:55

Question

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

milanademidova1 · Answer

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