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

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

Question

Лариска

23 февраля, 04:32

+2

Ответы (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 чётных натуральных чисел.