Найти сколько множителей необходимо, чтобы произведение 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<-=100 do
begin
a:=a+2-
i:=i+1-
p:=p*a-
end-
writeln(‘количество множителей =’,i)-
readln-
end.
Категория: Циклы |
Дата: 15.11.12