В модуле CRT есть процедура, которая устанавливает цвет текста: TextColor(Цвет)
В качестве цвета служат числа от 0 до 15, либо константы (Green, Red и т.п.)
Пример:
uses crt;
begin
TextColor(LightGreen);
writeln('Цветной текст')
<span>end.</span>
Переведём 28 из 6-ой с.с. в 10-ую:
расставляем 0 под 8, а 2 под 1,
1*6^1+8*6^0=6+8=14.
Значит, получается, что наим ближайшее целое число 14-1=13.
Но с ответом я НЕ 100% уверена.. скорей всего будет 13, но может 14..
На материнскую плату (она же системная плата) ПК устанавливаются:
слоты расширения, жесткий диск и оперативная память.
(но это только из данного списка. На самом деле там намного больше деталей.)
Рабочее поле блокнота это область текстового ввода, а область рабочего стола это графическая среда в виде папки
Program arifmeticheskoe;
var
a,b,sr:real;
begin
readln(a,b);
sr:=(a+b)/2;
write(sr);
end.
program geometricheskoe;
var
a,b,sr:integer;
begin
readln(a,b);
sr:=SQRT(a*b);
writeln(sr);
end.