Input x-1 y-5
a^2=x:y
Print a^2
Input x-2 y-5
d^2=x:y
Print d^2
Может быть неправильно!
I1 = 5 бит / 1 символ
i2 = 6 бит / 1 символ
6/5 = 1,2 раза.
В 1.2 раза различаются инф. объемы текстов.
Var
a, b: integer;
begin
Write('Введите через пробел делимое и делитель: ');
Readln(a, b);
Writeln(a, '/', b, '=', a div b, ', остаток ', a mod b)
end.
Тестовое решение:
Введите через пробел делимое и делитель: 1564 137
1564/137=11, остаток 57
Var
n: integer;
begin
readln(n);
writeln((n mod 2 = 0) and (n div 10 > 0) and (n div 100 = 0));
end.