Меню сайта

Задача №46

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


Program ciklp_9-

Uses crt-

Var a,i:integer-

p:longint-

Begin

ClrScr-

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

repeat

a:=a+2-

i:=i+1-

p:=p*a-

until p&gt-100-

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

readln-

end.

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

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