Сумма натуральных чисел

@Паскалька)) · Регистрация: 17.09.2009

Author24 — интернет-сервис помощи студентам

Пожалуйста, помогите!! А лучше решите задачу, мне по информатике задали: написать программу, которая будет суммировать все натуральные числа начиная от 1 так, чтобы в сумме получилось число, которое меньше 10000. В ответе выдать последнее число.

@Jazon_deenAlt · 17.09.2009, 17:02

блин ну ето надо быть крайним лентяэм

Pascal

program fg;
uses crt;
var
i,summ:integer;
begin
summ :=0;
i:=0;
while summ<10000 do begin
i:=i+1;
summ:=summ+i;
end;
writeln(i-1);
readln;
end.

Добавлено через 34 секунды
пользуйте поиск там все ето есть)

@Паскалька)) 0 / 0 / 0 Регистрация: 17.09.2009 Сообщений: 11
		1
	Сумма натуральных чисел 17.09.2009, 16:16. Показов 1329. Ответов 1 Метки нет (Все метки) Пожалуйста, помогите!! А лучше решите задачу, мне по информатике задали: написать программу, которая будет суммировать все натуральные числа начиная от 1 так, чтобы в сумме получилось число, которое меньше 10000. В ответе выдать последнее число. 0

	17.09.2009, 17:02

Сумма натуральных чисел

Решение