Меню сайта

Задача №45

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


Program ciklp_8-

Uses crt-

Var a,i:integer-

S:longint-

Begin

ClrScr-

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

repeat

a:=a+2-

i:=i+1-

s:=s+a-

until s&gt-100-

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

readln-

end.

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

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