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

как в паскале записать сумму чисел от 1 до n

  1. Ответ
    Ответ дан sankvic
    Возможны ошибки.
    Program prim;
    Var x, s: integer;
    Begin
    s:=0
    For x:= 1 to n do s:=s+x
    Writeln ('Сумма равна' , s)
    End.
    1. Ответ
      Ответ дан sanyagubanova
      program l27; var n,i,k:integer; a:array[1..30] of integer; begin readln(n); for i:=1 to n do readln(a[i]); for i:=1 to n do k:=a[i]+a[n]; writeln(k); end.
Самые новые вопросы