составить программу суммирования натуральных чисел 1...n пока их сумма не превысит величину h. Вывести на экран последнее слагаемое и сумму
язык?
Readln(n,h); for i:=1 to n do begin s:=s+i; if s>h then break; end; writeln(i,s);
Uses crt; var n,h,i,sum:integer; begin read(n,h); while sum<=h do<br>begin sum+=i; i+=1; end; writeln(i-1,' ',sum-i); end.
Конкретнее?
sum+=i; i+=1; (не отрицаю, что я чего-то не знаю, или написано не для стандартного pascalabc)
для pascal abc. Фундаментальное сокращение. Например, a+=b это тоже, что и a=a+b, a/=b это a=a/b, a*=b это a=a*b. Во всем современных языках это есть.
Во всех*
Может и сам бы не узнал. Но начинал изучать программирование сам, с C++.
Странно, что мой abc не хочет читать такую запись...
Даже не знаю, почему. У меня все нормально http://puu.sh/5zEym.png
а у меня такое сокращение только в С++ и пошло
а вот паскаль... http://rghost.ru/50608100.view
Возможно, надо обновить pascal abc. Ну даже если не заработает - не критично.