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

Вычисление суммы положительных чисел.

Введите количество суммируемых чисел - > 20

Сумма первых 20 положительных чисел равна 210

Question

Информатика

Евгеньич

22 ноября, 22:49

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

Вычисление суммы положительных чисел.

Введите количество суммируемых чисел - > 20

Сумма первых 20 положительных чисел равна 210

+3

Ответы (1)

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

Галинуша · Answer 1

program zad4;

uses crt;

var

s, i, n: integer;

begin

clrscr;

writeln ('Вычисление суммы первых n положительных чисел') ;

writeln ('введите количество суммируемых чисел') ;

readln (n) ;

s:=0;

for i:=1 to n do

begin

If n mod i = 0 then

s:=s+n;

end;

writeln ('сумма первых ', n,' положительных чисел равна ', s) ;

readln;

end.

Попробуй как-то так