Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
yukiko2
08.12.2021 22:59 •
Информатика
Написать рекурсивную процедуру для ввода с клавиатуры последовательности чисел и вывода ее на экран в обратном порядке(окончание последовательности-при вводе нуля).паскаль
Показать ответ
Ответ:
prestigpad
08.10.2020 06:56
PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!
procedure Foo;
begin
var k:integer;
Read(k);
if k<>0 then begin Foo; Print(k) end
end;
begin
Foo;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
SaNur78
30.07.2021 20:01
Какое из указанных чисел является а) наибольшим; б) наименьшим? 1101111(2), 605(8), 3d(16)...
SandraBulitl
30.04.2022 04:26
Вклассе 1111(2) девочек и 1100 (2) мальчиков. сколько учеников в классе?...
valeria276
13.04.2020 00:18
Как проверить одинаковые ли слова на Pascal. Если одинаковые то вывести «Yes», если нет то вывести «No». Заранее Ввод: стоп стоп Вывод: Yes...
bonich04
29.07.2021 21:00
Вычисли значение математического выражения в MS Excel: (95+128)−2(76:(8+20)). (ответ округли до сотых)...
гарамьбм
20.05.2020 19:42
С++ Опрeдeлить кaкoму врeмeни сутoк сooтвeтствуeт oпрeдeлeннoe числo: 1-6(нoчь), 7-12(утрo), 13-18(дeнь), 18-24(вeчeр)...
www152
23.06.2022 12:43
Опишіть як можна створювати таблиці засобами HTML...
astafiev94
19.10.2022 06:23
ответьте на вопросы по информатике 5класс 1)расскажите наглядных формах представления информации. 2)с какими наглядным формами представления информации вы знакомы...
1Shupy4ka
19.10.2022 06:23
После преобразования растрового графического файла его объем уменьшился в 2 раза. сколько цветов было в палитре первоначально, если после преобразования было получено...
таир20
10.12.2022 15:18
Написать программу, которая переводит значение скорости v в размерерности м/сек в размерности км/час....
fa7b3ar
22.11.2020 04:20
надо Составить алгоритм вычисления гипотенузы прямоугольного треугольника, если известны его катеты. в программе паскаль авс...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Внимание! Если программа не работает, обновите версию!
procedure Foo;
begin
var k:integer;
Read(k);
if k<>0 then begin Foo; Print(k) end
end;
begin
Foo;
end.