tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Вывести: 1,2,3,4,5,6,7,8,9
Вывести: 1,2,3,4,5,6,7,8,9 9,8,7,6,5,4,3,2,1 1,2,3,4,5,6,7,8,9 всего 10 строчек. вложным циклом
daniil358
3 17.09.2019 00:00
0
Ответы
ayperi2
07.10.2020 20:47
1. Традиционный "школьный" вариант
var
i,j:integer;
begin
for i:=1 to 5 do begin
for j:=1 to 8 do Write(j,',');
Writeln(9);
for j:=9 downto 2 do Write(j,',');
Writeln(1)
end
end.
Результат
1,2,3,4,5,6,7,8,9
9,8,7,6,5,4,3,2,1
1,2,3,4,5,6,7,8,9
9,8,7,6,5,4,3,2,1
1,2,3,4,5,6,7,8,9
9,8,7,6,5,4,3,2,1
1,2,3,4,5,6,7,8,9
9,8,7,6,5,4,3,2,1
1,2,3,4,5,6,7,8,9
9,8,7,6,5,4,3,2,1
2. Современный вариант
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
Loop 5 do begin
SeqGen(9,i->i,1).Println(',');
SeqGen(9,i->9-i).Println(',')
end
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
кошка448
24.10.2020 16:18
1)Переведите числа из десятичной системы счисления в шестнадцатеричную систему счисления. а) 563; б) 264; 2. Переведите число в десятичную систему счисления 215,716....
beknurr546ozpknp
02.03.2022 19:03
3.Дан код программы p=1 for i in range(2, 5, 2):if i == 5: breakelse: p=p*i print(p) Определите значение переменной р...
nagor1904
02.03.2022 18:52
Обозначим через M разность максимального и минимального числа среди простых делителей целого числа, не считая самого числа. Если таких делителей у числа нет, то...
Vkomarova
02.03.2022 18:45
For i in range(10,20,3): print(i)...
Zauchka17
02.03.2022 18:37
1. Почему молодежь любит находиться в интернете? 2. Что вы понимаете под интернет-опасностями (интернет-рисками)? 3. Какие риски существуют в интернете? 4. Является...
anna6pie
02.03.2022 18:36
Нужно написать программу в с# или исправить мой код, мой код ниже за , нужно что бы программа была рабочая при изменении начальных параметров что бы менялись ответы...
liza73578
18.02.2021 19:28
Назначение модема 1)хранение информации 2)осуществление связи с другими компьютерами через телефонную сеть 3)постоянное хранение информации 4)объединение нескольких...
kobyarova2001
11.05.2020 10:39
Презентацию на тему Моя учеба на карантине. Плюсы и минусы использования компьютера (или другого устройства) . Креативность приветствуется....
dinara56437
11.05.2020 10:39
Информатика 4 тоқсан 1 бжб 8-сынып ...
Viktoria120t
11.05.2020 10:40
Определите значение переменной c после выполнения следующего фрагмента программы. Записать ход вычислений (как и что считали) и в завершении номера «ответ: с=…»....
Популярные вопросы
Установленообґрунтуйте судження про вплив життя на старіння...
3
У исполнителя Вычислитель две команды, которым присвое ны номера:...
1
користуючись показания электро личильника вызначыты выточенную...
1
Математика КІМ біледі 5жұлдыз берем КІМ білет...
3
На склад двома машинами привезли 30 однакових труб. Скільки...
2
Изменить слово путь,воробей и радость в существительные...
1
В каком году пели музуку Атамекен...
3
Фольклорный текст Выпески из текстов Коментарии Пушкенский текст...
1
До якого виду образотворчого мистецтва належить подана пам ятка?...
1
Какие организмы занимают 5% всех животных организмов на планет(хелп...
1
var
i,j:integer;
begin
for i:=1 to 5 do begin
for j:=1 to 8 do Write(j,',');
Writeln(9);
for j:=9 downto 2 do Write(j,',');
Writeln(1)
end
end.
Результат
1,2,3,4,5,6,7,8,9
9,8,7,6,5,4,3,2,1
1,2,3,4,5,6,7,8,9
9,8,7,6,5,4,3,2,1
1,2,3,4,5,6,7,8,9
9,8,7,6,5,4,3,2,1
1,2,3,4,5,6,7,8,9
9,8,7,6,5,4,3,2,1
1,2,3,4,5,6,7,8,9
9,8,7,6,5,4,3,2,1
2. Современный вариант
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
Loop 5 do begin
SeqGen(9,i->i,1).Println(',');
SeqGen(9,i->9-i).Println(',')
end
end.