Дано натуральне число n визначити кількість цифр у цьому числі Паскаль
Дано натуральне число n визначити кількість цифр у цьому числі
Паскаль
Ответ(ы) на вопрос:
Гость
var a,k:int64;
begin
k:=1;
writeln('Vvedite chislo');
read(a);
while a>0 do
begin
a:=a mod 10;
k:=k+1;
end;
write('V chisle',k,' tsifr');
end.
Не нашли ответ?
Похожие вопросы