Предмет: Информатика, автор: Fe1zy

Ребят помогите пожалуйста !!!!!!
нужно составить программу определения количества цифр во введенном числе ((((((((((в программе КУМИР !!!!!!!!)))))

Ответы

Автор ответа: TimaX02
1
var n,c:integer;
procedure Kol(n: integer; var c:integer);
begin while n > 0 do
begin n := n div 10;
c += 1;
end;
end;
begin
readln(n);
Kol(n, c);
write(c);
End.
Похожие вопросы
Предмет: Информатика, автор: gogaNice3
Предмет: Английский язык, автор: oksana0angie