Ask___
Advice
Главная
О сервисе
О нас
Правила пользования сайтом
Авторское право
Политика конфиденциальности
Ключ для indexNow
Скрипт от рекламы
Задать вопрос
Искать
Главная
Информатика
Ответы на вопрос
Aleksandrovich-Mayatskikh
15.02.2023
?>
Краткое опишите установке Joomla или Word Press.
Информатика
Ответить
Ответы
kokukhin
15.02.2023
Uses GraphABC;
var a,b,c:array[10..99] of integer;
ast,bst,cst:string;
i:integer;
begin
ast:='A:';
bst:='Б:';
cst:='В:';
for i:=10 to 99 do
begin
c[i]:=i;
a[i]:=c[i]-i+random(50);
b[i]:=c[i]-a[i];
ast:=ast+' '+inttostr(a[i]);
bst:=bst+' '+inttostr(b[i]);
cst:=cst+' '+inttostr(c[i]);
end;
setpencolor(clRed);
line(0,0,150,0);
line(150,0,75,50);
line(75,50,0,0);
rectangle(0,50,150,300);
DrawTextCentered(0,50,150,300,ast);
setpencolor(clYellow);
line(150,0,300,0);
line(300,0,225,50);
line(225,50,150,0);
rectangle(150,50,300,300);
DrawTextCentered(150,50,300,300,bst);
setpencolor(clGreen);
line(300,0,450,0);
line(450,0,375,50);
line(375,50,300,0);
rectangle(300,50,450,300);
DrawTextCentered(300,50,450,300,cst);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Краткое опишите установке Joomla или Word Press.
Ваше имя (никнейм)*
Email*
Комментарий*
Согласен с
политикой конфиденциальности
Отправить вопрос
Популярные вопросы в разделе
Что появится на экране монитора после выполнения программы? program_12 var x: integer; begin x: 4; write (x); write (x*x); write (x*x*x); end.
Автор: Владислав1246
Какие типы БД по структуре организации данных вам известны?
Автор: and-syr
Составьте схему передачи информации: кодирующее устройство, декодирующее устройство, источник, приемник , канал связи.
Автор: jim2k
Скопируйте формулу из ячейки c2 вставьте в ячейку c3 какую формулу мы получим в результате
Автор: Пономаренко
А9 Рисунок размером 512 на 256 пикселей занимает в памяти 64 Кбайт (без учёта сжатия Найдите максимально возможное количество цветов в палитре изображения А10 Аня может передать документ объёмом 50 Мб...
Автор: boykovandrew6663
(Python)Без пробелов запишите инструкцию вывода на экран среднего арифметического элементов списка а
Автор: domtorgvl20082841
На бесконечном поле есть горизонтальная и вертикальная стены. Правый конец горизонтальной стены соединён с нижним концом вертикальной стены. Длины стен неизвестны. В каждой ст...
Автор: ivanda
Считая, что один символ кодируется 8 битами, определите, чему равен информационный объём следующей пословицы: Васька слушает да ест.
Автор: mulyugina365
Все птицы имеют крылья у поденки есть крылья следовательно она птица
Автор: palmhold578
Информатика 6 класс Скопируй все части документов под названием автобиография 2 и Дополните его документы под названием Моя семья
Автор: Курнев-Анастасия359
Вкладка «структура» в режиме просмотра «обычный» варианты ответов 1 заметки к .  2 миниатюры слайдов.  3 текстовую часть слайдов. 4 такой области в powerpoint нет.
Автор: Марюк-Мубариз
Ризики в інтернеті 12 штук
Автор: Чунихина1586
Запишите условные операторы, с которых можно выполнить следующие действия: а) проверить, является ли число а четным; б) от большего из заданных чисел a i b отнять меньше; в) проверить, есть ли сре...
Автор: igor51766771
У меня подключено 3 видеокарты к мат плате от rx надоли мне скачивать драйвера на каждую видекарту?
Автор: Валентинович133
Дано двузначное число a. напишите программу определения: является ли сумма его цифр двузначным числом; превышает ли сумма его цифр число x, которое вводится дополнительно; кратна ли сумма его цифр 6;...
Автор: borvalmok432
▲
var a,b,c:array[10..99] of integer;
ast,bst,cst:string;
i:integer;
begin
ast:='A:';
bst:='Б:';
cst:='В:';
for i:=10 to 99 do
begin
c[i]:=i;
a[i]:=c[i]-i+random(50);
b[i]:=c[i]-a[i];
ast:=ast+' '+inttostr(a[i]);
bst:=bst+' '+inttostr(b[i]);
cst:=cst+' '+inttostr(c[i]);
end;
setpencolor(clRed);
line(0,0,150,0);
line(150,0,75,50);
line(75,50,0,0);
rectangle(0,50,150,300);
DrawTextCentered(0,50,150,300,ast);
setpencolor(clYellow);
line(150,0,300,0);
line(300,0,225,50);
line(225,50,150,0);
rectangle(150,50,300,300);
DrawTextCentered(150,50,300,300,bst);
setpencolor(clGreen);
line(300,0,450,0);
line(450,0,375,50);
line(375,50,300,0);
rectangle(300,50,450,300);
DrawTextCentered(300,50,450,300,cst);
end.