uses graphABC;
Begin
Setbrushstyle(bsClear);
SetPenWidth(13);
SetPenColor(clBlue);
Circle (140,200,100);
SetPenColor(clBlack);
Circle (320,200,100);
SetPenColor(clRed);
Circle (500,200,100);
SetPenColor(clYellow);
Circle (240,315,100);
SetPenColor(clGreen);
Circle (420,315,100);
SetPenColor(clBlue);
Arc(140,200,100,-17,90);
SetPenColor(clBlack);
Arc(320,200,100,180,200);
SetPenColor(clBlack);
Arc(320,200,100,-15,90);
SetPenColor(clRed);
Arc(500,200,100,180,270);
SetPenColor(clYellow);
Arc (240,315,100,0,45)
end.
Объяснение:
картинка
ответ: 1 компактность и экономичность, обеспечивающие массовое применение в различных сферах профессиональной деятельности и в быту;
2 операционные системы, предоставляющие пользователю простые и удобные средства доступа к ресурсам персональных компьютеров и средства управления выполнением задач;
3 диалоговые языки программирования высокого уровня, позволяющий проектировать интерактивные процедуры обработки данных;
4 телекоммуникационные средства, обеспечивающие подключение персональных компьютеров к локальным и глобальным сетям.
Типовой состав устройств персональных компьютеров:
5 системный блок обработки и управления,
6 средства взаимодействия пользователей с системным блоком,
7 средства долговременного хранения и накопления данных,
8 средства подключения к каналам связи
9 устройства ввода-вывода.
Объяснение:
// PascalABC.Net 3.0, сборка 1064
var
i,n1,n2:integer;
s:longint;
begin
Write('Введите интервал для вычисления суммы: '); Read(n1,n2);
s:=0;
if n1 mod 2 = 0 then i:=n1 else i:=n1+1;
while i<=n2 do begin s:=s+i; i:=i+2 end;
Writeln('Сумма четных чисел в интервале равна ',s)
end.
Тестовое решение:
Введите интервал для вычисления суммы: 7 14
Сумма четных чисел в интервале равна 44
2. Современное решение
// PascalABC.Net 3.0, сборка 1064
var
n1,n2:integer;
begin
Write('Введите интервал для вычисления суммы: '); Read(n1,n2);
if Odd(n1) then Inc(n1);
Writeln('Сумма четных чисел в интервале равна ',Range(n1,n2,2).Sum);
end.