//Pascal
var
Ez: byte;
z: real;
begin
writeln('1 - дециметр, 2 - километр, 3 - метр, 4 - миллиметр, 5 - сантиметр');
write('Введите номер единицы измерения: '); readln(Ez);
write('Введите длинну: '); readln(z);
if Ez = 1 then writeln(z/10, ' м');
if Ez = 2 then writeln(z*1000, ' м');
if Ez = 3 then writeln(z, ' м');
if Ez = 4 then writeln(z/1000, ' м');
if Ez = 5 then writeln(z/100, ' м');
readln;
end.
846 | 423 | 211 | 105| 52 | 26 | 13 | 6 | 3 | 1
---------------------------------------------------------
0 | 1 | 1 | 1 | 0 | 0 | 1 | 0 | 1 | 1 число записывается справа налево:
846₁₀= 1101001110₂= 1516₈ = 34E₁₆
1533 | 716 | 358 | 179 |89 | 44| 22| 11 | 5 | 2 | 1
--------------------------------------------------------------
1 | 0 | 0 | 1 | 1 | 0 | 0 | 1 | 1| 0 | 1
1533₁₀=10110011001₂ = 2775₈ = 5FD₁₆
1101001110₂ + 10110011001₂ =100011100111₂
1516₈ + 2775₈ = 4513₈
34E₁₆ + 5FD₁₆ = 94B₁₆
9 * 1 = 1 (это 1я загрузка сковороды)
1*1 = 1 (2я загрузка сковороды)
1+1 = 2 (требуется две загрузки сковороды)
2*2 =4 (2 загрузки сковороды умножили на два переворота получили 4 минуты)
2+2 = 4 минут. (уходит на 10 сырников)
PS: можно разделить 10 сырников по 5 шт на одну загрузку сковороды.
Насколько я понял
k:=0;
for i:=1 to 5 do
begin
readln(a[i]);
if (a[i] mod 10 = 8) and (a[i] mod 3)=0 then
inc(k);
end;
writeln(k);
Два только могу пока, если остальное высчитаю напишу.
<span>1111001-1101=1101100
</span><span>10101110:101=100010</span>