Uses Drawman;
var a,i:integer;
procedure square(a:integer);
begin
pendown;
onvector(a,0);
onvector(0,-a);
onvector(-a,0);
onvector(0,a);
end;
begin
Task('pp4');
ToPoint(7,17);
pendown;
a:=15;
for i:=1 to 8 do
begin
square(a);
penup;
onvector(1,-1);
a:=a-2;
end;
ToPoint(0,0);
<span>end. </span>
Var
a, b: integer;
begin
readln(a, b);
writeln('Сумма чисел: ', a+b);
writeln('Разница между числами: ', abs(a-b));
writeln('Квадрат разности: ', sqr(a-b));
writeln('Частное: ', a div b);
writeln('Остаток от деления первого на второе: ', a mod b);
end.
3) 1. Paint
2. Microsoft Word
4) 1. Толщина
2. Фигуры
5) 1. Фигуры
2. Заливка
3. Ластик
Основные устройства которые имеет компьютер - системный блок, центральный процессор, монитор, клавиатура, мышь. Дополнительные устройства - принтер, сканер, модем.
Процессор - устройство обработки информации.
<span>Винчестер (жёсткий диск), флешки, дискеты - устройства хранения информации.
</span>