<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadReal('Введите длину в миллиметрах:');
var b:=ReadReal('Введите длину в дюймах:');
var s:=Sign(a-25.4*b);
case s of
-1:Writeln('Второй отрезок длиннее');
0:Writeln('Отрезки равны');
1:Writeln('Первый отрезок длиннее')
end
end.
F=8*4*48*64=2^3 * 2^2* 3 *2^4 *2^6=3*2^15 бит=
= 3*2^12 байт=3*2^2 Кбайт=12 Кбайт
-8+12 = 4; 5-16 = -11
4+n*(x-22)+10 = -7; -11+n*(y+14)+17 = 18
n*(x-22) = -21; n*(y+14) = 12
НОД(-21,12) = 3
Ответ: 3