Написать программу, которая вычисляет сумму первых целых положительных чисел

@Tatajna · Регистрация: 15.10.2013

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

Помоги, пожалуйста! Написать программу, которая вычисляет сумму первых целых положительных чисел. Количество суммируемых чисел вводится во время работы программы.

@_vladimirK · 15.10.2013, 13:31

Pascal

var x,sum,k,l:integer;
begin
readln(k);
x:=0;
sum:=0;
for l:=1 to k do begin
read(x);
if x>=0 then
inc(sum,x);
end;
writeln(sum);
end.

@Tatajna 2 / 2 / 0 Регистрация: 15.10.2013 Сообщений: 87
		1
	Написать программу, которая вычисляет сумму первых целых положительных чисел 15.10.2013, 13:19. Показов 16652. Ответов 1 Метки нет (Все метки) Помоги, пожалуйста! Написать программу, которая вычисляет сумму первых целых положительных чисел. Количество суммируемых чисел вводится во время работы программы. 0

Опции темы

Написать программу, которая вычисляет сумму первых целых положительных чисел

Решение