Pascal, цикл для, составить программу

Ввести целое число N. Найти сумму первых N чётных натуральных чисел.

Question

Рафаил

22 августа, 21:49

+1

Ответы (1)

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

Нунехия · Answer 1

Var n, i, s:integer;

begin

write ('n = ') ;

readln (n) ;

s:=0;

for i:=1 to n do s:=s+2*i;

writeln ('s = ', s) ;

end.

Пример:

n = 5

s = 30

Pascal, цикл для, составить программуВвести целое число N. Найти сумму первых N чётных натуральных чисел.