Предмет: Информатика,
автор: iliagrihin
Определите, чему будет равна сумма всех целых чисел от единицы до заданного числа N.
Входные данные
Первая строка содержит целое число N (1 <= N <= 100).
Выходные данные
Выведите одно целое число — сумму чисел от 1 до N.
Приложения:

Ответы
Автор ответа:
1
var n, s, i: integer;
begin
write('Введите n ');
readln(n);
for i:=1 to n do
s:=s+i;
writeln(s);
end.
begin
write('Введите n ');
readln(n);
for i:=1 to n do
s:=s+i;
writeln(s);
end.
Похожие вопросы
Предмет: Английский язык,
автор: вероника1034
Предмет: Математика,
автор: tkhvatyllina2004regi
Предмет: Биология,
автор: nikusha10
Предмет: Математика,
автор: levyakov07
Предмет: Психология,
автор: 6tm