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

Написать программу, которая вычисляет сумму первых n целых положительных четных чисел.
Гость
Ответ(ы) на вопрос:
Гость
Var n,i,k,s:integer; Begin  write('n='); readln(n);  s:=0; k:=0; i:=2;  while k