Предмет: Информатика,
автор: Fe1zy
Ребят помогите пожалуйста !!!!!!
нужно составить программу определения количества цифр во введенном числе ((((((((((в программе КУМИР !!!!!!!!)))))
Ответы
Автор ответа:
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.
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
Предмет: Информатика,
автор: lenuvuiYchenik
Предмет: Английский язык,
автор: oksana0angie
Предмет: Математика,
автор: NataШkA
Предмет: Химия,
автор: Дианочка20005