Изначально есть три функции, включающие цвета.
yellow()
red()
green()
Делаем таймер под название time, а потом пишем подобное:
do {
if (time<10)
red();
if (time<10)
yellow();
if (time<10)
green();
}
Блин, ты ничего не прикрепил..... Прикрепи..... Помогу))
Var
y, x: real;
begin
readln(x);
if (x < 0) then
y := sin(x) / cos(x)
else
if (x <= 1) then
y := exp(2)
else
y := x + cos(x);
writeln(y);
end.
На каждый символ в 8 символьном альфавите уходит 3 бита.
Чтобы найти сколько битов содержит 20 символов мы умножит 20 на 3=60 битов