Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
singerilt
30.01.2022 13:07 •
Информатика
Напишите программу, которая строит "квадрат" из знаков '*' заданного размера. используйте процедуру. на языке pascal. , !
Показать ответ
Ответ:
zild228
03.10.2020 11:55
Вот ваш Pascal :|
var
n,i,j:longint;
procedure square(a:longint;);
begin
for j:=1 to a do write('*');
writeln;
end;
begin
readln(n);
for i:=1 to n do square(n);
end
0,0
(0 оценок)
Популярные вопросы: Информатика
romaantonizin1
14.09.2020 21:16
Даны два числа a и b большее из них возвести в квадрат, меньшее в куб...
Павви
31.12.2022 14:26
Переводят информацию с языка человека на язык компьютера а) устройство вывода б) процессор в) оперативная память г) устройства вывода...
anasstasissya
28.08.2021 20:18
Запишите название размеры 3D-графикии...
popovvovapo
25.04.2022 04:24
очень нужно! Пришлите фото,того,что у вас получилось Использовать Чертежник алг нач • опустить перо • сместиться на вектор ( -1, 0) • сместиться на вектор ( 3, 3) • сместиться...
malinka1212
31.01.2020 13:01
Запишите оператор который во время работы программы обеспечит вывод значений двух переменых one и two . и 2 целочисленым переменых z x y нужно присвоить соотвествено значение...
grenzygaming
01.07.2022 23:49
РЕШИТЕ х, a, b: real; begin writeln ( Определение принадлежности точки отрезку ); write ( Введите а, b ); readln (а, b) ; write ( Введите х» ); readln (х); if (х =а) and (x...
дитус
16.04.2023 01:52
4. Берілген сөздерді мағыналық топқа қарай екіге жікте. Беті-қолыңды жу, денсаулығыңды сақта, ұрпағыңды көбейт, чр- пағыңа білім бер, еліңді қорға, жаудан қорға, жеріңді сақта,...
ar2018borisov
29.06.2022 17:54
Висновок ознайомлення з препаратами тканин людини...
sashasasha404
05.11.2020 04:36
Казахский язык 3 класс страницы 9 6 тапсырма...
простой221
31.01.2022 15:05
сделать это по биологии , просто кое что дописать там и всё , вот эти вот все 4 задание их сделать...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
n,i,j:longint;
procedure square(a:longint;);
begin
for j:=1 to a do write('*');
writeln;
end;
begin
readln(n);
for i:=1 to n do square(n);
end