110001.011100110011001100110011001100110011001100110011002
var x:real ;
begin
readln(x);
if x>3 then writeln((x*x+2)/(x-3))
else writeln (2*x*x-5)
end.
Var a: integer;
begin
write ('Введите число: ');read (a);
if (a mod 2 = 0) then writeln ('Число делится на 2');
if (a mod 3 = 0) then writeln ('Число делится на 3');
if (a mod 5 = 0) then writeln ('Число делится на 5');
if (a mod 2 = 0) and (a mod 3 = 0) and (a mod 5 = 0) then writeln ('Ваше число делится на 2,3,5') else writeln ('Ваше число не делится на 2,3,5 одновременно');
<span>end.</span>
Если числа от 1-10 то нужно
(1+2+3+4+5+6+7+8+9+10):10=
383 / 256 = 1 * 256 + 127 => итог: 1
127/ 16 = 7 * 16 + 15 => итог: 17
15 / 1 = 15 = F => итог 17F
Ответ: 17F