Составить программу. дано натуральное число n. подсчитать количество цифр этого числа.

253

285

Посмотреть ответы 3

Ответы на вопрос:

freax1613

Информатика

4,7(29 оценок)

Var n: longint; s: string; k: byte; begin write('введите натуральное число '); readln(n); { преобразуем число к строке, убрав знак (мало } str(abs(n), s); { выведем длину полученной строки } writeln('количество цифр в числе равно ', length(s)) end. тестовое решение: введите натуральное число 164275353 количество цифр в числе равно 9

luya21

Информатика

4,8(1 оценок)

Program chisla; uses crt; var a,b,c: integer; begin writeln('введите натуральное число: '); readln(a); b: =a; c: =0; while b < > 0 do begin c: =c+1; b: = b div 10; end; writeln('b числе ',a,' - ',c, ' цифр'); end.