(AvB)&(AvB) таблицу истинности и еще над второй буквой а сверху черточка

125

476

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

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

мадина488

Информатика

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

Program 123; uses crt; var m, n: longint; k: integer; {счетчик цифр} begin clrscr; {вводим целое число.} writeln('введите n='); readln(n); {запоминаем его и счетчику цифр присваиваем начальное значение.} m: =n; k: =0; {пока m< > 0 делать цикл.} while m < > 0 do begin {"уменьшаем" число на последнюю цифру, т. е. в 10 раз.} k: =k+1; m: = m div 10; {inc(k) } end; {вывод количества цифр.} writeln('b числе ',n,'- ',k, ' цифр! '); readln; end.