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

Question

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

Ксения 2019-08-10 06:17:04

язык?

2 ответа

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Вячеслав Скобунов · Answer 1 · 2019-08-10 06:19:05+3:00

Вячеслав Скобунов 2019-08-10 06:19:05

Uses crt;
var n,h,i,sum:integer;
begin
read(n,h);
while sumlt;=h do
begin
sum+=i;
i+=1;
end;
writeln(i-1,' ',sum-i);
end.

Esenija Babakova 2019-08-10 06:24:20

Конкретнее?

Данил Магарик 2019-08-10 06:31:29

sum+=i; i+=1; (не отрицаю, что я чего-то не знаю, либо написано не для стандартного pascalabc)

Коля Макарычкин 2019-08-10 06:24:46

для pascal abc. Основательное сокращение. К примеру, a+=b это тоже, что и a=a+b, a/=b это a=a/b, a*=b это a=a*b. Во всем современных языках это есть.

Agata Gismatova 2019-08-10 06:27:50

Во всех*

Роман Куйберг 2019-08-10 06:36:54

Может и сам бы не вызнал. Но начинал учить программирование сам, с C++.

Елизавета Стирман 2019-08-10 06:44:13

Удивительно, что мой abc не желает читать такую запись...

Iljuha Katechkin 2019-08-10 06:52:59

Даже не знаю, почему. У меня все нормально http://puu.sh/5zEym.png

Алиса Казбан 2019-08-10 07:00:54

а у меня такое сокращение только в С++ и вульгарно

Евген Цулимов 2019-08-10 07:02:05

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

Владик Цявук 2019-08-10 07:05:49

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

Slava Godunskij · Answer 2 · 2019-08-10 06:21:13+3:00

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