Вычеслить произведение нечётных чисел на отрезке - вопрос №30902156085 от Dаniеll 13.03.2022 03:22

Question

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

Dаniеll · 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