Написать программку, которая вычисляет сумму первых n целых положительных целых чисел.

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

Задать свой вопрос
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.



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

Лохеницина Олеся
Ошибка в for i:=1 to n do
Милена Кабус
Eror 85
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт