Дано целое число N. Составить программу нахождения количества цифр числа (Pascal ABC)
Var
a:longint;
s:string;
begin
writeln(Введите целое число);
readln(a);
Str(a,s);
writeln(Количество цифр в числе равно ,length(s));
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
