составить программу суммирования натуральных чисел 1 ... n пока их сумма не превысит величину h. Вывести на экран последнее слагаемое и сумму

Question

Ефросиныч

2 марта, 06:27

+1

Ответы (2)

Знаете ответ?

Святослава · Answer 1

Uses crt;

var n, h, i, sum:integer;

begin

read (n, h) ;

while sum<=h do

begin

sum+=i;

i+=1;

end;

writeln (i-1,' ', sum-i) ;

end.

Витюха · Answer 2

Readln (n, h) ;

for i:=1 to n do begin

s:=s+i;

if s>h then

break;

end;

writeln (i, s) ;