Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
салсм
16.02.2022 23:46 •
Информатика
Напишите программу, которая строит "квадрат" из знаков '*' заданного размера. используйте процедуру. (паскаль авс). заранее )
Показать ответ
Ответ:
Superclassehdh
28.07.2020 21:58
Var
n,i,j:longint;
procedure qwer(a:longint;);
begin
for j:=1 to a do write('*');
writeln;
end;
begin
readln(n);
for i:=1 to n do qwer(n);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
flinko4
09.03.2023 22:53
Число 54 300 записали в нормализованной форме. Определите мантиссу (m) и порядок (n) данного числа. а) m=5,43 n=4б) m=0,543 n=5в) m=5 n=0,543г) m=0,543 n=-4...
xenyazhardin
26.09.2022 02:07
Что будет выведено в результате работы программы при вводе следующих данных: 1 3 5 7 9 12 15 18 21 22 23 24 25 30 33 36 39 40 41 42? Текст приводится на нескольких...
одиннадцать1
31.03.2020 02:31
Заданы две рекурсивные функции (процедуры) F и G (на пяти языках программирования). Что будет выведено при выполнении вызова F(12)? Значения введите в строку, не...
10MisisVika10
09.12.2022 07:38
для какого наибольшего целого неотрицательного числа A выражение тождественно истинно ( x A ) + ( y A ) + ( y 4x - 22 )...
mumuminecraft
23.10.2021 09:41
Даны 2 ненулевых числа a и b. Найти НУЖНА ДЕЛАТЬ НАДО В ПАСКАЛЕ...
islamhajimetov
27.11.2020 20:13
А – название буквы, которая в системе греческой алфавитной записи чисел имеет числовое значение 100;В – специальная компьютерная программа, выполняющая определенные...
ostankova82
06.01.2022 03:13
Я монтировал видео и вдруг у меня появилась серая полоска и все видео стали чёрными, а звук слышно! Что делать скажите...
wondermang
21.03.2022 06:45
Списки (массивы). Дан список, состоящий из n элементов. Подсчитайте количество отрицательных элементов. Программирование Python. Заранее...
бjulfyн
11.04.2020 20:04
3*8/117 дробь не сокращать!...
Polly2011
22.12.2020 02:20
Определите значение переменной а после выполнения следующего фрагментапрограммы:i=3a = 12while i 6:а += ii+=1...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n,i,j:longint;
procedure qwer(a:longint;);
begin
for j:=1 to a do write('*');
writeln;
end;
begin
readln(n);
for i:=1 to n do qwer(n);
end.