Напишете программу ,которая вычисляет количество цифр числа. Используйте функцию. Помогите пожалуйста. Буду очень благодарна.
Напишете программу ,которая вычисляет количество цифр числа. Используйте функцию.
Помогите пожалуйста.
Буду очень благодарна.
Гость
Ответ(ы) на вопрос:
Гостьvar
n:integer;
function kol(n:integer):integer;
var k:integer;
begin
k:=0;
while n>0 do
begin
k:=k+1;
n:=n div 10;
end;
kol:=k;
end;
begin
write('n = '); readln(n);
writeln('k = ',kol(n));
end.
Пример:
n = 123456
k = 6
Не нашли ответ?
Похожие вопросы