Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
racinskaulana
26.09.2022 16:32 •
Информатика
Написать программу в паскале. : заполнить экран синим цветом.введите строчку с клавиатуры.выведите строку в правом верхнем углу экрана,вставив в нее после первого заданное слово.
Показать ответ
Ответ:
akolosov2002
01.10.2020 22:56
uses
GraphABC;
var
s: string; //Вся строка
i: byte; //Номер нужного слова
begin
readln(s);
readln(i);
s := s.Split(' ')[0] + ' ' + s.Split(' ')[i - 1];
SetBrushColor(clBlue);
FillRectangle(0, 0, WindowWidth, WindowHeight);
GraphABC.SetFontSize(12);
TextOut(WindowWidth - s.Length * 12, 0, s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
aizhanashoznweb
27.09.2021 10:29
Вбаскетбольную команду принимают ростом не ниже 160 см узнать попадут ли в баскетбольную команду , информатика 9 класс, операторы ветвления...
zajka23oz3xl9
06.01.2020 15:23
40 .напишите программу, которая выводит на экран в строку через пробел массив из 10 чисел сгенирированных случайным образом, а затем находит в данном массиве сумму нечетных чисел....
sofi190
19.08.2020 02:09
Сколько решений имеет уравнениеизвините за кривую фотографию...
destroyer0800
24.12.2021 16:50
Elaborati un program care citeste de la tastatura un sir de n numere naturale si afiseaza pe ecran lungimea celui mai lung subsir de zerouri....
lyaman2005
08.02.2020 04:55
Впрограмме, представленной ниже допущены ошибки. найди их все, запиши правильную строку и пояснение ошибки. для удобства строки пронумерованы. 1)var mass : aray [1..15] of integer;...
АндрейПермь123
18.10.2020 16:41
А)дан фрагмент программы read (x); read (y); a: = (x-y)/2*x; write(a) write(x) его, скоратив число операторов б) что будет выведено на экран после ввполнение фрагмента программы:...
Эноа
27.01.2020 09:18
Пусть числовая прямая разбита на произвольные отрезки точками a1, a10. выясните какому из отрезков принадлежит заданная точка паскаль...
Akimneznaet123
25.04.2023 00:11
Решение обязательно,написать решение,...
SASHEKA
29.04.2020 00:30
Что изменится при изменении схемы оформления рабочего стола...
влад2133
20.10.2020 09:31
Циклический алгоритм на Python...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
GraphABC;
var
s: string; //Вся строка
i: byte; //Номер нужного слова
begin
readln(s);
readln(i);
s := s.Split(' ')[0] + ' ' + s.Split(' ')[i - 1];
SetBrushColor(clBlue);
FillRectangle(0, 0, WindowWidth, WindowHeight);
GraphABC.SetFontSize(12);
TextOut(WindowWidth - s.Length * 12, 0, s);
end.