Меню сайта

Задача №28

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


Program cikl_8-

Uses crt-

Var a,i:integer-

S:longint-

Begin

ClrScr-

a:=2-i:=1- s:=2-

while s&lt-=100 do

begin

a:=a+2-

i:=i+1-

s:=s+a-

end-

writeln(‘количество слагаемых =’,i)-

readln-

end.

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

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