function myFunction(x: real):real;
begin
if (x>=-10) and (x<2) then
myFunction:=sqr(x)+4*x-7 else
if ((x<-10) and (x<>0)) or (x>=2) then
myFunction:=1/(sqr(x)+4*x-7);
end;
var x,y: real;
begin
write('Введите x: ');
readln(x);
y:=myFunction(x);
writeln('y = ',y);
end.
3)
направо 90
вперед 100
налево 90
вперед 100
повторить 2{
направо 90
<span>вперед 100}
</span><span>
4)
</span>направо 90
вперед 100
налево 90
вперед 100
повторить 2{
направо 90
<span>вперед 100}
</span>повторить 4{
повторить 2{
налево 90
<span>вперед 100}
</span>повторить 2{
направо 90
<span>вперед 100}
</span>}
К-во пикселей 2048*1024=2097152
64 цвета следовательно один пиксель -6 бит
2097152*6=12582912 бит/8=1572864 байта/1024=1536Кбайт
Разделить число на 10, полученную целую часть от деления еще раз разделить на 10 и взять остаток от деления
на Pascal это выглядит так:
x:= 156;
y:=((x div 10) mod 10)
результат: у=5
Если используется 8-битная кодировка, то для кодирования имени антон необходимо 5*8 бит = 40 бит = 5 байт.
Если используется 16-битная кодировка, то для кодирования необходимо 5*16 = 80 бит = 10 байт.