tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано натуральное число
Дано натуральное число n. выведите все числа от 1 до n. на паскаль.цикл не использовать.рекурсия
ksenia777angel
1 29.08.2019 16:40
7
Ответы
Италия13
06.10.2020 03:16
Procedure R(n:integer);
Begin
if n>1 then R(n-1);
Write(n,' ')
End;
Var
n:integer;
Begin
Write('n = ');
ReadLn(n);
R(n)
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Даша0109
22.09.2019 10:20
Определите и отметьте тип каждого устройства по братски...
123Настенька
22.09.2019 10:28
дз по информатике надеюсь на ? !...
GamerPro3922
07.05.2020 20:31
Змінній а присвоїти значення суми цифр тризначного числа...
perizatvip
07.05.2020 20:31
только правильно очень важно очень важно...
фиксоня
07.05.2020 20:32
Рано утром Вася решил сделать домашнее задание по информатике. Начать выполнение задания Вася решил с поиска подходящей тетрадки. Добравшись до ящика с чистыми тетрадями, он открыл...
SeamCard
11.04.2020 17:45
Тема: Символьные строки. Функции для работы с символьными строками.1. Что обозначает операция «+» применительно к строкам?2. Перечислите основные операции со строками и соответствующие...
Елизавета1040
07.03.2020 00:18
ТОЛЬКО ПРАВИЛЬНО РЕШИТЕ.СДЕЛАТЬ НА ЯЗЫКЕ PYTHON. Задача 1 Даны 2 числа. Если модуль суммы этих чисел не меньше 20, то найти квадрат первого числа, иначе найти корень из модуля...
Srednov
23.06.2019 03:50
Найдите значение -с, если с= 2 целых 1/5...
КатяСвиридова
23.06.2019 03:50
Сколько может быть осей симметрии у равностороннего треугольника?...
Офелия12345
23.06.2019 03:50
Первое путешествие вокруг африки совершили викинги финикийцы древние греки...
Популярные вопросы
(1)Я плыл на лодке вниз по реке и вдруг услышал, как в небе кто-то начал осторожно...
2
1. Сравните числа: а) −1,16 и−1,6 б) 13 и−112 2. Выполните действия: а) 411...
2
1)Дан одномерный массив целых чисел. Напечатать все элементы, следующие за последним,...
3
Эссе или сочинение на тему Человек как результат эволюции...
3
Сколько производящих основ у слов газопровод, нефтепровод?...
2
Определи абсциссу данной точки: C(-1;3)...
1
Дано точки A, B, C, що не лежать на одній прямій. Назвати промені з початком...
1
1.Как распределены гены в хромосомах 2.Какое численное соотношение числа генов...
3
8. Какое художественно-изобразительное средство используют авторы в данных строках?...
1
сегодня надо сдать сегодня надо сдать >...
2
Begin
if n>1 then R(n-1);
Write(n,' ')
End;
Var
n:integer;
Begin
Write('n = ');
ReadLn(n);
R(n)
End.