var x1,x2:integer;
function f(x:Integer):Integer ;
var
k:integer;
begin
while x>0 do
begin
x:=x div 10;
k:=k+1;
end;
f:=k;
end;
begin
read(x1,x2);
if f(x1)>f(x2) then
write('В первом числе больше цифр')
else if
f(x2)>f(x1) then
write('В втором числе больше цифр')
else
write('В числах одинаковое количество цифр')
end.
Решение. Чтобы разделить 7 яблок на троих, не обязательно разрезать каждое яблоко. Можно сначала каждому раздать по 2 яблока и одно оставшееся разделить на три равные части. Тогда каждый ребенок должен получить 2 + 1/3 яблока. Сумму 2+1/3 принято записывать в виде 2 1/3без знака сложения. Читают, две целых одна третья.
Число 2 1/3 называют смешанным числом, или смешанной дробью, где число 2- целая часть смешанного числа, а число 1/3 – его дробная часть.
Число, состоящее из целой части и дробной части, называется смешанным числом.
===== PascalABC.NET =====
function КолЦифр(n: integer): integer;
begin
(n, Result) := (Abs(n), 0);
while n > 0 do
begin
Inc(Result);
n := n div 10
end
end;
begin
var (a, b) := ReadInteger2('Введите два целых числа:');
case Sign(КолЦифр(a) - КолЦифр(b)) of
1: Print('В первом числе больше цифр');
0: Print('В числах одинаковое количество цифр');
else
Print('Во втором числе больше цифр')
end
end.