Написать программу дана числовая последовательность - 1,1,3,5 ... Найти произведение первых 30 членов этой последовательности. урок информатики

Question

Клавдий

6 августа, 00:04

+4

Ответы (1)

Знаете ответ на вопрос?

Еняха · Answer 1

uses crt;

var ch, a:integer;

begin

a:=0;

for i:=1 to 30 do

begin

readln (ch) ;

a:=a*ch;

end;

writeln (a) ;

readln;

end.