ОТ СДЕЛАЙТЕ ПОЖАЙЛУСТА Создать слайд средствами редактора презентаций на тему: "Разделы информатики". На слайде, используя авторазметку "Маркированный список для разделов", разместить следующий маркированный список:
ОС Windows;
Текстовый процессор Word;
Табличный процессор Excel;
СУБД Access;
Программирование VBA;
Презентации в PowerPoint.
Для этого необходимо выполнить следующие действия:
Установить для заголовка текста "Разделы информатики"; размер шрифта - 45, цвет - белый, синюю заливку, серую тень.
Установить для списка размер шрифта - 30, цвет - синий, тень - черная.
Установить фон слайда - заливка градиентная, один цвет – светло-розовый.
Установить для заголовка (Заглавие) - эффект анимации.
Установить для подзаголовка (Текст) - эффект анимации.
На проверку прислать работу в формате ppt или pptx.
var t: real;
begin
t := a;
a := b;
b := t;
end;
var a, b, c: real;
begin
readln(a, b, c);
if (a > b) then swap(a, b);
if (b > c) then swap(b, c);
if (a > b) then swap(a, b);
writeln(a, ' ', b, ' ', c);
end.
Без процедур:
var a, b, c, t: integer;
begin
readln(a, b, c);
if (a > b) then
begin
t := a;
a := b;
b := t;
end;
if (b > c) then
begin
t := b;
b := c;
c := t;
end;
if (a > b) then
begin
t := a;
a := b;
b := t;
end;
writeln(a, ' ', b, ' ', c);
end.
Sub Main()
Dim a(29), Sum, Col As Integer
Dim Rnd = New Random()
For i As Integer = 0 To 29
a(i) = Rnd.Next(-100, 100)
Console.Write("{0} => {1}" + Environment.NewLine, i, a(i))
If (i > 0) Then
If (a(i) Mod a(0)) Then
Sum = Sum + a(i)
Col = Col + 1
End If
End If
Next
Console.WriteLine(Math.Round(Sum / Col, 2))
Console.ReadKey()
End Sub