Sub aaa()
Cells(8, 3).Formula = "=MAX(A5:A9)+MIN(A5:A9)"
End Sub
Шаг 1. Запустить графический редактор Paint (рис. 3).<span>1. Щелкнуть по кнопке Пуск.</span><span>2. В Главном меню выбрать команду Программы.</span><span>3. В появившемся подменю выбрать команду Стандартные.</span><span>4. В следующем подменю выбрать команду Графический редактор Paint.
</span><span>Шаг 2. Выберите любой основной цвет, установите указатель мыши на нужный цвет палитры и щелкните правой кнопкой мыши
</span>Шаг 3. Построение изображения.
Ну вроде бы всё
Надо знать колличество букв.
Var
a,b: integer;
begin
read(a);
b:=a mod 2;
a:= (a-b) div 2;
write ('Остаток от деления: ',b,' Целая часть: ',a);
end.