Информатика pascal. ввести символы с клавиатуры до нажатие enter и посчитать количество цифр в этой

102

224

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

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

natslig

Информатика

4,5(49 оценок)

// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin readstring.matches('\d').count.println end. пример сегодня 10.02.2018г., время 23: 32 12

Zhanna278

Информатика

4,4(78 оценок)

Var n,s: integer; begin write('введите число: '); readln(n); s: =0; while n< > 0 do begin n: =n div 10; s: =s+1; end; //число должно быть в пределах диапазона типа данных integer writeln('число состоит из ',s,' цифр'); end. надеюсь, я правильно понял