ПОЖАЛУЙСТА ПОМОГИТЕ,ОЧЕНЬ НУЖНО!!ОГРОМНЕЙШЕЕ СПАСИБО,ТОМУ КТО РЕШИТ!!!
Составить программу которая определяет сколько слагаемых должно быть в сумме,чтобы сумма оказалась больше 20.СПАСИБО!!!

1

Ответы и объяснения

  • Участник Знаний
2011-11-20T18:32:41+04:00


var 
I,n:byte; 
begin 
n:=0; 
i:=1; 
While n<=20 do 
begin 
n:=n+i; 
inc(i); 
end; 
Writeln(i); 
end.