Var m1, V1: integer; {первое тело}
m2, V2: integer; {второе тело}
begin
Write('Введите массу первого тела в граммах'); ReadLn(m1);
Write('Введите объем первого тела в кубических сантиметрах'); ReadLn(V2);
Write('Введите массу второго тела в граммах'); ReadLn(m2);
Write('Введите объем второго тела в кубических сантиметрах'); ReadLn(V2);
if (m1/V1)>(m2/V2) then WriteLn ('ПЛАВАЕТ')
else WriteLn('ТОНЕТ');
ReadLn;
end.
В)наверно
кассир и сам справится
а дворник зачем?
Var i,s:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do begin
a[i]:=random(100);write(a[i],' ');
if (a[i] mod 3=0) and (a[i]>50) then s:=s+1;
end;
writeln('S=',S);
end.
91
- в двоичную
<span>Делим число на 2 и выписываем остатки</span>
<span>91 = 45·2 + </span>1
<span>45 = 22·2 + </span>1
<span>22 = 11·2 + </span>0
<span>11 = 5·2 + </span>1
<span>5 = 2·2 + </span>1
<span>2 = 1·2 + </span>0
<span>Последний множитель перед 2 равный </span>1<span> записываем первым.</span>
<span>Затем записываем найденные остатки в обратном порядке.</span>
<span>Получаем: </span>1011011
- в восьмеричную
<span>Делим число на 8 и выписываем остатки</span>
<span>91 = 11·8 + </span>3
<span>11 = 1·8 + </span>3
<span>Последний множитель перед 8 равный </span>1<span> записываем первым.</span>
<span>Затем записываем найденные остатки в обратном порядке.</span>
<span>Получаем: </span>133
- в шестнадцатиричную
<span>Делим число на 16 и выписываем остатки</span>
<span>91 = 5·16 + </span>11<span> (11 записывается как </span>B<span>)</span>
<span>Последний множитель перед 16 равный </span>5<span> записываем первым.</span>
<span>Затем записываем найденные остатки в обратном порядке.</span>
<span>Получаем: </span>5B
52
- в двоичную
<span>Делим число на 2 и выписываем остатки</span>
<span>52 = 26·2 + </span>0
<span>26 = 13·2 + </span>0
<span>13 = 6·2 + </span>1
<span>6 = 3·2 + </span>0
<span>3 = 1·2 + </span>1
<span>Последний множитель перед 2 равный </span>1<span> записываем первым.</span>
<span>Затем записываем найденные остатки в обратном порядке.</span>
<span>Получаем: </span>110100
- в восьмеричную
<span>Делим число на 8 и выписываем остатки</span>
<span>52 = 6·8 + </span>4
<span>Последний множитель перед 8 равный </span>6<span> записываем первым.</span>
<span>Затем записываем найденные остатки в обратном порядке.</span>
<span>Получаем: </span>64
- в шестнадцатиричную
<span>Делим число на 16 и выписываем остатки</span>
<span>52 = 3·16 + </span>4
<span>Последний множитель перед 16 равный </span>3<span> записываем первым.</span>
<span>Затем записываем найденные остатки в обратном порядке.</span>
<span>Получаем: </span>34
Ответ:
Б) IT-навыки
Объяснение:
Информационные технологии - IT
Умение - навыки