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

Question

Иосиф

16 октября, 05:24

+1

Ответы (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.