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

Question

Landarin

5 год назад

ОТВЕТЫ

Hawkins Norman

Oct 24, 2020

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.

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

488