Вопросы к защите второго задания 1. Какое назначение средства «SmartArt»?
а. Как воспользоваться блочным списком «Организационной диаграммы»?
б. Чем отличается фигура Подчиненный от Коллега?
в. Что понимается под Макетом?
г. Какие типы Макетов Вы знаете?
д. Что понимается под стилем диаграммы и как его задать?
е. Для чего нужна Библиотека стилей?
ж. Что понимается под Уровнем иерархической диаграммы?
2. Какое назначение вкладки Коструктор для организационной диаграммы?
3. Какое назначение вкладки Формат для организационной диаграммы?

//Pascal
//1
begin
writeln((15 div 4)*18);
end.

//2
var a, b, c: real;
begin
write('Введите стороны треугольника A B C: '); readln(a, b, c);
writeln('Периметр = ', a + b + c);
end.

//3
var a, b: real;
begin
write('Введите стороны прямоугольника A B: '); readln(a, b);
writeln('Площадь = ', a * b);
writeln('Периметр = ', 2 * (a + b));
end.

//4
var a, b, c: real;
begin
write('Введите ребра A, B, C: '); readln(a, b, c);
writeln('Площадь = ', (2*(a*b+b*c+a*c)):0:1);
writeln('Объем = ', (a*b*c):0:1);
end.

//5
var r: real;
begin
write('Введите радиус: '); readln(r);
writeln('Длина окружности = ', (2 * pi * r):0:1);
end.

Первая:

Var
A,R:real;
Begin
WriteLn('Введи длину сторону квадрата');
ReadLn(A);
WriteLn('Введи радиус круга');
ReadLn(R);
if Pi*R*R>A*A then WriteLn('Площадь круга больше')
else if Pi*R*R<A*A then WriteLn('Площадь квадрата больше')
else WriteLn('Площади фигур равны');
End.

Вторая:

Var
m1,m2,V1,V2:real;
Begin
Write('m1 = ');ReadLn(m1);
Write('m2 = ');ReadLn(m2);
Write('V1 = ');ReadLn(V1);
Write('V2 = ');ReadLn(V2);
if m1/V1<m2/V2 then WriteLn('Плотность первого тела меньше')
else if m1/V1>m2/V2 then WriteLn('Плотность второго тела меньше')
else WriteLn('Плотности равны')
End.