Напишите программу, определяющую сумму и количество первых n четных чисел

Question

Информатика

Арюха

9 марта, 00:39

Напишите программу, определяющую сумму и количество первых n четных чисел

+3

Ответы (1)

Знаете ответ на вопрос?

Мартин · Answer 1

На Паскале вот:

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.