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*
Комментарий*
Согласен с
политикой конфиденциальности
Отправить вопрос
Популярные вопросы в разделе
Решить 13 14 номера развёрнуто
Автор: milkline-nn
Отфильтровать сумму зарплаты меньше 4500 р. Построить гистограмму зарплаты сотрудников, на оси Х написать фамилии сотрудников/
Автор: e90969692976
Паскаль: 36 - оператор вывода 1. что будет выведено на экран в результате выполнения фрагмента программы a: =5; b: =3; write( a, '=z(', b, ')' ); здесь a и b — целые переменные. ответ: a, =z(3) 2. ...
Автор: Ни Дмитрий1095
Написать программу позволяющую по последней цифре числа определить последнюю цифру его квадрата
Автор: punctvydachi
Яку функцію можна використовувати, щоб дізнатися, як презентація буде виглядати в надрукованому вигляді?
Автор: dashanna04225
Какой тип подходит для хранения данных: 1)фамилия пользователя 2)наличие судимости у кандидата в депутаты 3)шестнадцатеричная цифра (0 - f) 4)цена бублика 5)площадь треугольника 6)год рождения пользов...
Автор: arturo95
Запишите с десятичной системы счисления числа: mmmcclxxvlll
Автор: Yelizaveta555
Составить на алгоритмическом языке PASCAL программу вычисления значений функции ВАРИАНТ 5
Автор: Viktorovich
Выберите верное представление арифметического выражения (y-3x)/(5-xy) на алгоритмическом языке: А) x+3y/5xy Б) x+3*y/5*x*y В) (x+3y)/5xy Г) (x+3*y)/(5*x*y)
Автор: Вакуленко
Считая, что каждый символ кодируется тремя байтами, определите, чему равен информационный объём следующего высказывания: Перестать читать книги — значит перестать мыслить.
Автор: valerii-borisovich550
Ақпараттың қандай қасиеттері бар
Автор: janepustu
Найти сумму чисел, записаных в разных сс : 1011(2) +15(8)+1е(16 ответ записать в 4 сс
Автор: хаджимурод1172
Практическая работа: «технология обработки числовой данных» Создать и заполнить таблицу «Учет заработной платы рабочих цеха за месяц». Исходные данные: фамилия рабочего (не менее 8), количество отраб...
Автор: Vrezh
О каком факторе риска идёт речь? а. Повышенная температура в помещении — это... психоэмоциональный фактор физически-эргономический фактор фактор риска травмы физический фактор б. Физическая перегрузка...
Автор: ivanda
Sim карта - как её сделать источником информации?
Автор: eremenkou
▲
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.