var
a, b, s, p: real;
begin
writeln('Введите длину прямоугольника:');
read(a);
writeln('Введите ширину прямоугольника:');
read(b);
s := a * b;
p := 2 * (a + b);
writeln('Площадь прямоугольника = ', p, #10, 'Периметр прямоугольника = ', s);
end.
z10)
var A, B, C: integer;
begin
write('Введите A, B, C: '); readln(A, B, C);
writeln('Сумма = ', A + B + C);
writeln('Произведение = ', A * B * C);
end.
z11)
var a,s,v:integer;
begin
writeln('Введите длинну куба: ');
readln(a);
s:=6*a*a;
v:=a*a*a;
writeln('Объем = ', v);
writeln('Площадь боковой поверхности = ', s);
end.
z13)
var A, B, C: integer;
begin
A := 20; B := 13;
C := A;
A := B;
B := C;
writeln('A = ', A);
writeln('B = ', B);
end.
z14)
var A, B: integer;
begin
A := 20; B := 13;
A:=A+B;
B:=A-B;
A:=A-B;
writeln('A = ', A);
writeln('B = ', B);
end.
Готово:
3-ёх битовых слов всего 2^3 = 8
4-ёх битовых 2^4 = 16
5-ти битовых 2^5 = 32
Всего 32+16+8 = 56 слов
Выделение произвольной области
<span>Выбрать
</span><span>Резинка
</span><span>Заливка
</span><span>Экранная лупа
</span><span>Карандаш
</span><span>Кисть
</span><span>Распылитель
</span><span>Текст
</span><span>Линия
</span><span>Кривая
</span>Прямоугольник
Многоугольник
И т.д
1 и 2 увеличение окна по диагонали 3 перемещение окна 4 я не знаю 5 справка 6 невозможно выполнить действие (напр. переместить файл в определённую папку) 7 и 8 увеличение окна по горизонтали и вертикали 9 ожидание ответа
