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

Составьте программу по предложенной блок-схеме.

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

    program raf105;

    var n,S,i: integer;

    begin

    readln(n);

    S:= 1;

    for i:=1 to n do

    begin

     S:= S+5*i;

     writeln(s);

    end;

    end.