Дано натуральное число n.составить программу нахождения суммы всех чисел от 1 до n.паскаль.

Nastyalimelps13 Nastyalimelps13    2   28.08.2019 15:00    0

Ответы
Ваня111111222 Ваня111111222  14.08.2020 21:56
Var
   N:integer;
   S:real;
Begin
Write('N = ');
ReadLn(N);
S:=N;
For N:= 1 to N-1 do
    S:=S+N;
WriteLn('S = ',S);
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика