<em>Наверное так :З</em>
var x:real;
Begin
write('Введите число: '); read(x);
writeln('Целое число: '+floor(x));
var r:real := 1;
for var i := 1 to length(''+(x-floor(x)))-2 do
r := r * 10;
writeln('Дробное число: '+((x-floor(x))*r + (floor(x) * r))+' / '+r+'');
write('Округленно число: ', round(x));
End.
Сообщение племени Мульти занимает 4 * 120 = 460 бит (потому что 16 = )
Сообщение племени Пульти занимает 5 * 96 = 480 бит (потому что 32 = )<span>Ответ: сообщение племени Пульти больше сообщения от племени Мульти на 20 бит. </span>
Var
A,B,i:integer;
k:byte;
Begin
i:=0;
k:=0;
Repeat
Read(A);
i:=i+1;
if (i>2)and(i<5) then
Begin
B:=Abs(A);
if (9<B)and(B<100)and(B mod 10 = 2) then k:=k+1;
End;
Until (A = 0)or(i>=5);
if A<>0 then
Repeat
Read(A);
Until A = 0;
WriteLn(k)
End.
1)
1010₈ = 1 000 001 000₂ - 10 цифр
101₁₆ = 1 0000 0001₂ - 9 цифр
Ответ: 100010 100000001 1000001000
2а)
203891₁₆ = 10 0000 0011 1000 1001 0001₂ =
1 000 000 011 100 010 010 001₂ = 10034221₈
2б)
2746735255₈ = 10 111 100 110 111 011 101 010 101 101₂ =
10111100110111011101010101101₂
Ботаника- Это раздел науки Растениях;Земледельцы-это люди которые занимаются работой связанной с землёй.Животноводы-Это люди которые выращивают домашний скот.НУ как то так