Question

Написать программу, которая вычисляет сумму первых n целых положительных чисел. Кол-во суммируемых чисел должно вводиться во время работы программы. Ниже представлен рекомендуемый вид экрана во время работы программы :

Вычисление суммы четных положительных чисел.
Введите количество суммируемых чисел и нажмите
-> 12
Сумма первых 12 положительных четных чисел равна 156.

Answer 1

Program z1; var i, n, b: integer; begin writeln ('Введите любое целое число'); read (n); for i:=1 to n*2 do if i mod 2=0 then b:=b+i; writeln (b); end.