Здесь небольшая проблемка: при больших R некоторых частей функций не будет видно...
Но тем не менее;
uses Crt;
var x, y, R: real;
begin
ClrScr;
Write(' X = '); ReadLn(X);
Write(' R = '); ReadLn(R);
if x<=-R then y:=-3 else
if (x>=-R) and (x<=R) then y:=-sqrt(R*R-x*x) else
if (x>R) and (x<6) then y:=3+6*(x-6)/(R-6) else
if (x>=6) then y:=(x-9);
ReadLn;
end.
Единственное, что осталось - распечатать значения Y...
Но по условию распечатка Y вроде не требуется... Или я чего-то не понимаю...
Представление — чувственный образ объекта, в данный момент нами не воспринимаемого, но воспринятого ранее
На счет 3 пункта - не уверенна, но кажется не совсем
Информационный объём сообщения в кодировки ASCII будет равен количеству символов в сообщении умноженом на 8, ответ будет в битах.
I=N*8
для того, чтобы сохранить 1000 цифр, надо ⇒ i = 10 бит
тогда для записи идентификатора требуется 4*10+12 = 52 бит ≈ 7 байт
для 20 команд 7*20 = 140 байт
<span>Способ кодирования информации с помощью того же алфавита ,что и исходный текст - я не знаю... не написано сколько всего букв
</span><span>Способ кодирования информации с помощью чисел - числовой;
</span>