Program one;var A, B, x: real;beginwriteln ('Введите А и В');readln (A, B);A:=A+10;B:=B/4;x:=A-B;A:=A*x;Writeln (A);end.
А - <span>11100001 - 225
б - </span>11100010 - 226<span>
а - </span><span>11100001 - 225
к - </span><span>11101011 - 235
С - </span><span>11110011 - 243
о - </span>11101111 - 239<span>
р - </span>11110010 - 242<span>
о - </span>11101111 - 239<span>
б - </span>11100010 - 226<span>
а - </span>11100001 - 225<span>
н - </span>11101110 - 238
// 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.