Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
patoga79p00pc3
09.10.2022 00:26 •
Информатика
Вывести на экран числа от 1 до n и от n до 1 в две строки
Показать ответ
Ответ:
imranesedov777
08.10.2020 08:31
PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018
Внимание! Если программа не работает, обновите версию!
begin
1.To(ReadInteger('n=')).Println.Reverse.Println
end.
Пример
n= 15
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
15 14 13 12 11 10 9 8 7 6 5 4 3 2 1
0,0
(0 оценок)
Ответ:
nikita2003201711
08.10.2020 08:31
Program n1;
var n,i: integer;
begin
readln(n);
for i:=1 to n do write(i,' ');
writeln;
for i:=n downto 1 do write(i,' ');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
zvon007
27.06.2020 18:12
нужны ответы на во Является ли PyGame стандартной библиотекой Python? 2.Почему используются команды import pygame?3.Для чего нужно деление модулей PyGame на несколько типов?...
zirkakoi
27.06.2020 18:12
Вывести список всех определяемых классов в тексте и их родителей. Дан список. python...
aleksiandr999
18.02.2021 03:02
а) Сформулируйте задачу оптимального планирования для школьного кондитерского цеха, в котором выпускается три вида продукции: пирожки, пирожные и коржики....
rgewwet
29.01.2023 09:25
Напишите программу, которая ввести с клавиатуры длину ребра куба а.Найти объем куба V=a3 и его площадь поверхности S=6 a2, вывести на экран....
topaxx100
14.02.2021 01:18
Выбери правильное название команды, чтобы открыть презентацию. 1.Нажми на вкладку Дом,Вид,Файл. И потом нажми на кнопку: Печать,Послать,Открыть,Закрыть.2. В новом окошке:Вставить,СоздатьОткрыть,Новый...
еддпмаад
05.10.2020 14:18
В процессе преобразования растрового графического изображения файла его объем уменьшился в 3 раза. Сколько цветов было в палитре первоначально, если после преобразования...
Mara6458
24.09.2020 00:38
Написать программу для вычисления площади S=A2 и периметра p=4 A квадрата со стороной А. Ввод данных с клавиатуры....
kseriii
15.02.2023 23:23
ИНФОРМАТИКА 8 КЛАСС Интересует во знания 8 класс.(Если что, вот сама программа, чтобы вам не переписывать program 000;var i,n:integer; a,y:real; beginwriteln( Возведедение...
УмникРазумник228
09.10.2022 15:18
Можно ли считать обыкновенный выключатель исполнителем?...
Taniusha02
23.03.2021 13:49
а) Сформулируйте задачу оптимального планирования для школьного кондитерского цеха, в котором выпускается три вида продукции: пирожки, пирожные и коржики....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Внимание! Если программа не работает, обновите версию!
begin
1.To(ReadInteger('n=')).Println.Reverse.Println
end.
Пример
n= 15
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
15 14 13 12 11 10 9 8 7 6 5 4 3 2 1
var n,i: integer;
begin
readln(n);
for i:=1 to n do write(i,' ');
writeln;
for i:=n downto 1 do write(i,' ');
end.