паскаль, процедуры и функции
Составить программу, определяющую, в каком из данных двух чисел больше цифр (создать подпрограмму для вычисления кол-ва цифр в числе).
Составить программу, определяющую, в каком из данных двух чисел больше цифр (создать подпрограмму для вычисления кол-ва цифр в числе).
More Questions From This User See All
Answers & Comments
===== 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.
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.