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

Задано число nнайти сумму чисел от 1 до n включительно

  1. Ответ
    Ответ дан petyaGavrikov
    var n,s,i:integer;
    begin
    write('Введите число: ');
    Readln(n);
    s:=0;
    for i:=1 to n do s:=s+i;
    Writeln('s=',s);
    end.
Самые новые вопросы