Вычеслить произведение нечётных чисел на отрезке - вопрос №21567623090 от ulianakosovska0 29.08.2022 22:12

Question

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

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