На Паскале вот:
var s, k, n: integer; {s -- сумма, k -- количество}
begin
writeln(Введите число n);
readln(n);
k := 0; s:=0;
while (k < n) do
begin
k:=k+1;
s:=s+2*k;
end;
writeln(Сумма первых n чётных чисел равна , s);
writeln(Сюрприз-сюрприз, их количество равно , n);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.