1.
37*37*2=2738
2.
161*161=25921
4 Кбайт = 4096 байт = 32768 бит
32768 бит/25921=1.26
1 Cvet
p.s. ne uveren 2
// PascalABC.NET
begin
var L1 := ReadlnReal('введите расстояние в км: ');
var L2 := ReadlnReal('введите расстояние в футах: ');
L2 := L2 * 0.305E-3; // перевод футов в километры
if L1 < L2 then
Println('L1 меньше')
else if L2 < L1 then
Println('L2 меньше')
else
Println('L1 = L2')
end.
Первый вариант:
Var
a,b:real;
Begin
Write('Введите два числа: ');ReadLn(a,b);
if a>b then Write(a-b)
else Write(b-a)
End.
Второй вариант:
Var a,b:real;
Begin
Write('Введите два числа: ');ReadLn(a,b);
WriteLn(Abs(a-b))
End.
О, я как раз около полугода назад для такого (но для себя уж, не для учёбы, просто интерес) программу на Visual Bisic .NET написал:) Счастья тебе, спасибо, что про неё напомнила х)
01010111011011110111001001101100011001000010000001010111011010010110010001100101001000000101011101100101<span>01100010</span>
Чтобы перевести из 10 системы в 4, нужно каждую целую часть числа разделить столбиком на 4.
Чтобы посчитать дробную часть, нужно её умножать на 4.
Ответ: 112, 23