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

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

Question

Сергуся

10 июля, 14:45

+3

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