составить программу вычисления суммы ряда s:=1+2+3+4+5+6

Составить программу вычисления суммы ряда s:=1+2+3+4+5+6

Задать свой вопрос
Детлова Ангелина
какого ряда
2 ответа
1. Самый незатейливый вариант, выдающий значение суммы 21

begin
  Writeln(1+2+3+4+5+6)
end.

2. Типовой "школьный вариант"

var
  i,s:integer;
 
begin
  s:=0;
  for i:=1 to 6 do s:=s+i;
  Writeln(s)
end.

3. Современный вариант, немножко пократче

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программка не работает, обновите версию!

begin
  1.To(6).Sum.Println
end.
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.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт