Высылаю вам 2 картинки, надеюсь разберетесь =)
Var x:real;
function y16(x:real):real;
begin
if x<=0 then y16:=x+2;
if (x>0) and (x<3) then y16:=-x+2;
if x>=3 then y16:=-2;
end;
function y18(x:real):real;
begin
if x<=0 then y18:=-x-3;
if (x>0) and (x<5) then y18:=x-3;
if x>=5 then y18:=2;
end;
begin
readln(x);
writeln(y16(x));
writeln(y18(x))
end.
//PascalABC.NET
var i:integer;
begin
for i:=1 to 10 do
writeln(i,'*6=',i*6);
<span>end.</span>
Использовать Черепаха
алг
нач
опустить хвост
вперед(100)
влево(90)
вперед(100)
влево(90)
вперед(100)
влево(90)
вперед(100)
влево(90)
вперед(100)
влево(45)
вперед(70.7)
влево(90)
вперед(70.7)
<span>кон</span>
1. Переведите в байты:560 бит = 560:8 = 70 байтов
<span>3024 бита = 3024:8 =378 байтов
</span>
2. Переведите в биты:540 байтов = 540*8 = 4320 бит
2,5 Кб = 2,5*1024*8= 2560*8 = 20480 бит
2 Гб = 2*1024*1024*1024*8 = 171798184 бита
3. Переведите в килобайты:1024000 бит = (1024000:8):1024 = 125 Кб
9240 байтов = 9240:1024 ≈ 9,02 Кб
4. Заполните пропуски числами:а) 3, 5 Кбайт = 3584 байт = 28672 бит
б) 3, 5 Гбайт = 3584 Мбайт = 3670016 Кбайт
Задача 1 Ответ: 312 бит
Задача 2Ответ: 7,3 Кбайт
Задача 3Ответ: 547
Задача 4Ответ: 32768