Предмет: Информатика,
автор: IvanProgramist555
составить программу вычисления суммы ряда s:=1+2+3+4+5+6
Ответы
Автор ответа:
0
program summa;
uses crt;
Var s, i, n:integer;
begin
Write('n=') ;readln(n) ;
s:=1; write('s=1') ;
For i:=2 to n do
Begin
s:=s+i;
Write('+', i) ;
End;
Write('=', s) ;
readln;
end.
uses crt;
Var s, i, n:integer;
begin
Write('n=') ;readln(n) ;
s:=1; write('s=1') ;
For i:=2 to n do
Begin
s:=s+i;
Write('+', i) ;
End;
Write('=', s) ;
readln;
end.
Похожие вопросы
Предмет: Литература,
автор: Аноним
Предмет: География,
автор: tsergienko405
Предмет: Математика,
автор: Аноним
Предмет: География,
автор: Аноним