Вопрос по информатике:
Создайте программу, выводящую на экран первые 55 элементов последовательности 1 3 5 7 9 11 13 15 17 ….
Пожаловаться
- 16.10.2017 17:35
- Информатика
- remove_red_eye 16424
- thumb_up 35
Ответы и объяснения 2
// PascalABC.NET 3.2, сборка 1427 от 24.04.2017
// Внимание! Если программа не работает, обновите версию!
begin
SeqGen(55,n->2*n+1).Println
end.
Результат
1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99 101 103 105 107 109
// Внимание! Если программа не работает, обновите версию!
begin
SeqGen(55,n->2*n+1).Println
end.
Результат
1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99 101 103 105 107 109
Пожаловаться
- 17.10.2017 02:39
- thumb_up 14
Var
i, n: integer;
begin
i := 1;
n := 1;
while i <= 55 do
begin
write(n, ' ');
n := 2 * i + 1;
i := i + 1;
end;
end.
i, n: integer;
begin
i := 1;
n := 1;
while i <= 55 do
begin
write(n, ' ');
n := 2 * i + 1;
i := i + 1;
end;
end.
Пожаловаться
- 18.10.2017 19:48
- thumb_up 4
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы