Меню сайта

Задача №29

Найти сколько множителей необходимо, чтобы произведение 2*4*6+… оказалась больше 100.


Program cikl_9-

Uses crt-

Var a,i:integer-

p:longint-

Begin

ClrScr-

a:=2-i:=1- p:=2-

while p&lt-=100 do

begin

a:=a+2-

i:=i+1-

p:=p*a-

end-

writeln(‘количество множителей =’,i)-

readln-

end.

Категория: Циклы | Дата: 15.11.12

Меню раздела
Блок