profile
Опубликовано 5 лет назад по предмету Информатика от ivanaverchev

Найти сумму арифм прогресии где An=An-1+3 Вывести саму послед

  1. Ответ
    Ответ дан ussrex

    Вот программа на ABC Pascal

    program progress;

    var a,n,i,sum:integer;

    begin cls;

    write('Введите первый член прогрессии a1 = ');

    readln(a);

    write('Введите длину последовательности (сколько элементов) ');

    readln(n);

    sum:=a;

    write(a,'  ');

    for i:=2 to n do begin

    a:=a+3;

    write(a,'  ');

    sum:=sum+a

    end;

    writeln;

    write('Сумма ',n,' элементов прогрессии равна ',sum)

    end.

Самые новые вопросы