1.дано действительное число x и целое число n вывести N первых

1.дано действительное число x и целое число n вывести N первых челнов арифметическойкой прогрессии и отыскать сумму ее первых членов если 1-ый член X а разность 1,12
2.дано действительное число x и целое число n вывести N первых членов арифметическойкой прогрессии и отыскать сумму ее первых членов если первый член X а разность (-2,2)

Задать свой вопрос
1 ответ
Универсальное решение

var
    a, d, s: real;
    i, n: integer;

begin
    writeln('Введите х, разность и n');
    readln(a, d, n);
    
    s := a;
    for i := 2 to n do
    begin
        a := a + d;
        s := s + a;
    end;
    
    writeln(s);
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт