Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
галина261
15.07.2020 04:54 •
Информатика
Напишите программу в pascalabc, которая запрашивает количество символов и выводит их в центре экрана
Ответ:
lara2377
07.08.2020 18:35
//Если имелось в виду графическое окно
//Pascal ABC.NET 3.1 сборка 1219
uses
GraphABC;
Var
n,i:integer;
s:string;
begin
readln(n);
for i:=1 to n do
s:=s+chrunicode(random(65535));
DrawTextCentered(0,0,windowwidth,windowheight,s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
SoniaSS09
11.01.2022 08:11
Решить : напишите наименьшее целое число x, для которого истинно высказывание: не (x 6) и (x нечётное). можно с подробным объяснением ...
den536
25.05.2022 14:29
Составить программу,которая считает количество вхождений буквы а в заданном тексте.с++...
няшка366
09.10.2021 23:54
Какая сервисная программа используется в целях предотвращения потери данных? проверка дискаактивация виндовсдефрагментацияочистка диска...
Kirill1233341
21.08.2020 18:23
Разрешение экрана монитора – 1024 х 768 точек, глубина цвета – 8 бит. каков необходимый объем видеопамяти для данного графического режима?...
variobukp06vcg
21.08.2020 18:23
Задано 10 целых чисел. необходимо найти количество чисел, которые делятся нацело на 3 и не делятся на 4. (на языке c++ нужно). пример ввода: 1 2 3 4 5 6 7 8 11 10 пример вывода: 2...
Katyshkamya
21.08.2020 18:23
По паскалю: ввести одномерный массив а из 10 элементов. определить количество элементов кратных трём, и сделать блок-схему к нему...
Tcgdfh
21.12.2021 08:11
Написать программу при выполнение которой с клавиатуры вводятся 10 целых чисел.программа выводит кол-во чисел кратных 5 и её произведение....
kopilge
21.12.2021 08:11
Написать программу при выполнение которой с клавиатуры вводятся натуральное число n,не привосходящее 1000 и выводится произведение цифр этого числа. !...
380973599293
23.11.2021 15:25
Даны переменные a,b,c,d найти max и min в виде алгоритма...
AliceMysova
23.11.2021 15:25
Какие каналы связи используются для передачи...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
//Pascal ABC.NET 3.1 сборка 1219
uses
GraphABC;
Var
n,i:integer;
s:string;
begin
readln(n);
for i:=1 to n do
s:=s+chrunicode(random(65535));
DrawTextCentered(0,0,windowwidth,windowheight,s);
end.