Составьте алгоритм для определения количества цифр в записи произвольного натурального числа
Лови
var
s:string;
a:integer;
begin
write(Введите натуральное число - );
readln(s);
a:=length(s);
writeln(В числе ,a, цифр.);
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Лови
var
s:string;
a:integer;
begin
write(Введите натуральное число - );
readln(s);
a:=length(s);
writeln(В числе ,a, цифр.);
end.