Question

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

Answer 1

readln(n,h);
for i:=1 to n do begin
s:=s+i;
if s>h then
break;
end;
writeln(i,s);

Answer 2

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 3

Странно, что мой abc не хочет читать такую запись...

Answer 4

а вот паскаль... http://rghost.ru/50608100.view

Answer 5

Возможно, надо обновить pascal abc. Ну даже если не заработает - не критично.