Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
saaangelina
25.02.2021 12:44 •
Информатика
Дано натуральное число. вывести на экран все натуральные числа до заданного включительно
Показать ответ
Ответ:
vovan2002vovap0181f
25.09.2020 19:59
Var
i, n: integer;
begin
readln(n);
for i := 1 to n do
write(i,' ');
end.
0,0
(0 оценок)
Ответ:
Ника5324
25.09.2020 19:59
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
1.To(ReadInteger('n=')).Print
end.
Тестовое решение
n= 21
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
0,0
(0 оценок)
Популярные вопросы: Информатика
statarincev2019
19.01.2022 05:28
С начала суток секунд. Сколько это составляет часов, минут, секунд? ПАСКАЛЬ...
nastosetrova2
11.04.2021 00:14
Помагите решит информатика Изучив числовую тему, он решил запрыгнуть на пронумерованную ячейку со своими идеями: 1 247 11 16 22 29 и так далее. Другую саранчу поместили в...
Vens12
16.06.2021 00:26
Що таке інформайні процеси? Інформатика...
Helpmeplz123
01.04.2021 10:27
Определить количество битов в двух килобайтах, используя для чисел только степени 2....
mirator91
03.01.2022 05:57
Задан двумерный массив А из 4-х строк и 4-х столбцов. Составить программу, которая подсчитывает произведение элементов массива, лежащих вне главной диагонали на c++...
XuJIuGan
23.03.2023 12:40
Из каких частей состоят инструменты условного форматирование...
asiper4ik
02.10.2022 21:52
Слова, 130 Перепишіть, розкриваючи дужки. Складноскорочені і 280. які відмінюються, поставте в потрібній формі. Постанова (Кабміну України; оприлюднено в (TCH); звіритися...
Omursinovaa03
19.01.2023 19:23
«Ревизор» анализ действия 2 явление 6 по плану 1. Сюжет 2. Роль Хлестакова 3. Характеристика Хлестакова 4. Роль этого эпизода...
pointbreakk9
28.06.2022 10:20
Пояснити афоризм Служіння муз не терпить суєти Прекрасне мусить бути величавим...
9092005apv
09.06.2022 13:36
По методу валентных связей постройте графические формулы молекул CH3CОН, SbCl3...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i, n: integer;
begin
readln(n);
for i := 1 to n do
write(i,' ');
end.
begin
1.To(ReadInteger('n=')).Print
end.
Тестовое решение
n= 21
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21