Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Напишите программу, которая вычисляет сумму:
а) первых n натуральных чисел
б) квадратов первых n натуральных чисел
в) всех четных чисел в диапазоне от 1 до n
г) всех двухзначных чисел
Даю 20 баллов!!!

Ответ оставил Гость

1)Var n,i,s:integer;
Begin
read(n);
s:=0;
for i:=1 to n do
s:=s+i;
write(s)
end.