Вычеслить произведение нечётных чисел на отрезке от - вопрос №21558603090 от Tumanovaad12 10.08.2022 05:58

Question

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

Tumanovaad12 · 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