var rK, rV: integer;
begin
writeln('Введите рост Коли:');
readln(rK);
writeln('Введите рост Васи:');
readln(rV);
if rK>rV then writeln('Коля выше Васи.')
else writeln('Вася выше Коли.');
end.
Var i, byear, eyear, k : integer;
Begin
read(byear, eyear);
byear := byear + 1;
for i := byear to eyear do
if (i >= 1605) and ((i - 1605) mod 10 = 0) then k:= k +1;
writeln(k);
End.
Решение показано в прилагаемом файле.
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:array of real;
a:=SeqRandom(n,-99,99).Select(t->real(t)).ToArray; a.Println; Writeln;
a.Where(t->Trunc(t) mod 3 <>0).Println
end.
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 ![N=256 \\ N=2^i \\ i=8 \\ K=39 \\ I=K*i=312](https://tex.z-dn.net/?f=N%3D256+%5C%5C+N%3D2%5Ei+%5C%5C+i%3D8+%5C%5C+K%3D39+%5C%5C+I%3DK%2Ai%3D312)
Ответ: 312 бит
Задача 2![K=v*t=250*40=10000 \\ N=64 \\ N=2^i \\ i=6 \\ I=K*i=10000*6=60000(bit)=7500(bait)=7,3 (Kbait)](https://tex.z-dn.net/?f=K%3Dv%2At%3D250%2A40%3D10000+%5C%5C+N%3D64+%5C%5C+N%3D2%5Ei+%5C%5C+i%3D6+%5C%5C+I%3DK%2Ai%3D10000%2A6%3D60000%28bit%29%3D7500%28bait%29%3D7%2C3+%28Kbait%29)
Ответ: 7,3 Кбайт
Задача 3![K_1=60*40=2400 \\ i=8(bit)=1(bait) \\ I=1280(Kbait)=1310720(bait) \\ I=K*i \\ 1310720=K_1*K_2*i=2400*K_2 \\ K_2=546,13=547](https://tex.z-dn.net/?f=K_1%3D60%2A40%3D2400+%5C%5C+i%3D8%28bit%29%3D1%28bait%29+%5C%5C+I%3D1280%28Kbait%29%3D1310720%28bait%29+%5C%5C+I%3DK%2Ai+%5C%5C+1310720%3DK_1%2AK_2%2Ai%3D2400%2AK_2+%5C%5C+K_2%3D546%2C13%3D547)
Ответ: 547
Задача 4![N=2^i \\ 2^i=256 \\ i=8(bit)=1(bait) \\ I=1/32(Mbait)=1024/32(Kbait)=32(Kbait)=32*8(bait)=32768(bait) \\ K=I/i=32768/1=32768](https://tex.z-dn.net/?f=N%3D2%5Ei+%5C%5C+2%5Ei%3D256+%5C%5C+i%3D8%28bit%29%3D1%28bait%29+%5C%5C+I%3D1%2F32%28Mbait%29%3D1024%2F32%28Kbait%29%3D32%28Kbait%29%3D32%2A8%28bait%29%3D32768%28bait%29+%5C%5C+K%3DI%2Fi%3D32768%2F1%3D32768)
Ответ: 32768