Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Graffiti1337
02.04.2020 09:15 •
Информатика
Паскаль с клавиатуры вводится 2 числа первое-количество столбцов, второе-количество строк. построить "таблицу" (если например ввели 2; 3) таблица такая \1\1\ \1\1\ \1\1\
Показать ответ
Ответ:
Waxcbortb
05.10.2020 22:09
Var
M,N,i:integer;
Begin
ReadLn(N,M);
For M:= 1 to M do
Begin
For i:= 1 to N do
Write('\1');
WriteLn('\')
End
End.
Пример:
13 7
\1\1\1\1\1\1\1\1\1\1\1\1\1\
\1\1\1\1\1\1\1\1\1\1\1\1\1\
\1\1\1\1\1\1\1\1\1\1\1\1\1\
\1\1\1\1\1\1\1\1\1\1\1\1\1\
\1\1\1\1\1\1\1\1\1\1\1\1\1\
\1\1\1\1\1\1\1\1\1\1\1\1\1\
\1\1\1\1\1\1\1\1\1\1\1\1\1\
0,0
(0 оценок)
Популярные вопросы: Информатика
LIBOVALEmail
31.12.2022 00:52
Даны числа авс, четные числа умножить на 2, к нечетным прибавить 3. решить про паскаля...
Fluttershy22102005
08.06.2020 04:52
Составить кроссворд по теме «компьютер как универсальное устройство для работы с информацией»....
darya4ern1
20.05.2021 05:28
Построить диаграмму эйлера-венна, используя комбинаторный принцип включений-исключений, выразить мощность множества d через мощности a,b,c и их пересечений (мощность универсального...
almirashagieva
31.05.2023 23:42
Какое самое простое доказательство мастер-теоремы? можете, , его , или скинуть ссылку на доказательство....
Dashakrasaveta
07.11.2021 07:11
(6)10 =(?)2 (10 и 2 это не степень,а в низу скобок) A) 011B) 101C) 110D) 111E) 011...
ОлиПоп
30.07.2021 21:01
нужно зделать таблицу паже зделайте а я уже 5 раз плачу ...
Лика1508
07.01.2021 12:41
7 клас. Написати програму мовою програмування Паскаль, яка реалізовує алгоритм...
jrbr
09.06.2022 15:12
Как нарисовать данного медведя в Чертежнике? (Комманды)...
PølîñA666
07.12.2021 00:24
с 1-2 во умоляю вас только быстрее ...
marty4
10.10.2020 10:31
Три магазина заказывают на складе книжки. если магазин заказывает больше 30 экземпляров какой-либо книги, склад уменьшает стоимость заказа на 10%. составить таблицу, которая...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
M,N,i:integer;
Begin
ReadLn(N,M);
For M:= 1 to M do
Begin
For i:= 1 to N do
Write('\1');
WriteLn('\')
End
End.
Пример:
13 7
\1\1\1\1\1\1\1\1\1\1\1\1\1\
\1\1\1\1\1\1\1\1\1\1\1\1\1\
\1\1\1\1\1\1\1\1\1\1\1\1\1\
\1\1\1\1\1\1\1\1\1\1\1\1\1\
\1\1\1\1\1\1\1\1\1\1\1\1\1\
\1\1\1\1\1\1\1\1\1\1\1\1\1\
\1\1\1\1\1\1\1\1\1\1\1\1\1\