Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
tahliaderma
05.10.2021 11:24 •
Информатика
Получить 20 чисел начиная с числа 3. 1,1,1,3,5,9, в программе паскаль
Показать ответ
Ответ:
GasanDJ
09.08.2020 14:21
В приведенной последовательности ошибка, там не 18, а 17.
// PascalABC.NET 3.2, сборка 1363 от 17.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a,b,c,d:integer;
(a,b,c):=(1,1,1);
Print(a,b,c);
for var i:=1 to 20 do begin
d:=a+b+c; Print(d);
(a,b,c):=(b,c,d)
end;
Writeln
end.
Результат
1 1 1 3 5 9 17 31 57 105 193 355 653 1201 2209 4063 7473 13745 25281 46499 85525 157305 289329
0,0
(0 оценок)
Популярные вопросы: Информатика
Mrztr
08.02.2023 16:54
Определите что лишнее д) цвет двойное зачеркивание приподнятый верхний индекс...
katya1172
18.04.2023 06:46
Напишите программу для решения следующей . камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё автомобилей, округляя значения скорости до...
yulechkastrelkp0aiwm
15.10.2020 04:58
Сформировать массив элемента которого равен квадрата своих индексов....
nika032009003
13.02.2023 19:55
Интерпретировать данный код из языка c++ в vba...
Полина1111111С
02.06.2021 18:32
Вязыке запросов поискового сервера для обозначения логической операции или используется символ | а для логической операции и символ & . сербия& хорватия 500 страниц;...
jayature
08.02.2021 09:05
Дано двовимірний масив а[1..n,1..m], дійсних чисел 1)суму елементів k-стовпця 2)добуток елементів с- рядка іть !...
faets
10.01.2023 20:02
Уисполнителя бета две команды, которым присвоены номера: 1. прибавь b . умножь на 2 (b – неизвестное натуральное число) выполняя первую из них, бета увеличивает число на экране...
basirovdanil
21.09.2022 20:59
что будет напечатано при b=40 и c6=20 =если (и(b6 20; c6 30); монреаль ; москва )...
livi9
24.10.2020 18:33
Вкаждой из групп терминов один термин (или число) является «лишним». найдите и выпишите его, пояснив свой выбор а) бейсик, французский, си, паскаль, ассемблер; б) драйвер,...
NekitKrut2007
04.06.2023 10:46
Группа туристов отправляется в путешествие по странам европы. известно что 4 из них одновременно владеют и языком. 15 из них говорят по а 10 по . сколько туристов было в группе...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
В приведенной последовательности ошибка, там не 18, а 17.
// PascalABC.NET 3.2, сборка 1363 от 17.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a,b,c,d:integer;
(a,b,c):=(1,1,1);
Print(a,b,c);
for var i:=1 to 20 do begin
d:=a+b+c; Print(d);
(a,b,c):=(b,c,d)
end;
Writeln
end.
Результат
1 1 1 3 5 9 17 31 57 105 193 355 653 1201 2209 4063 7473 13745 25281 46499 85525 157305 289329