Ответы на вопрос:
Program n1; var n,m,p,k: longint; begin write('введите n: '); readln(n); m: =n; k: =0; while m< > 0 do begin p: =m mod 10; k: =k+1; m: =m div 10; end; writeln('кол-во цифр: ',k); end.
Популярно: Информатика
-
Информационный альбом сообщения содержащего 1024 символа составляет 0,5...
dominocos08.04.2021 01:05 -
Дано целое число. напишите программу, которая выводит на экран последнюю...
Koki200625.12.2020 10:40 -
Известно, что 152N=127N+1. Определите основание системы счисления значение...
LizaPetukhova06.07.2021 02:16 -
Даны 3 массива a(n;m), b(n;m), c(n;m). Составить массив D(n;m) по формуле...
Fjk123cg14.07.2022 18:39 -
Во время хакатона команда, в которой участвовала Маша, разрабатывала программное...
KristinaLando10.08.2020 10:03 -
#include class Rational { private: int chisl, znam; public: Rational() {...
Katerina2001512.01.2021 13:24 -
Нужна , есть код. напишите обьяснение написанного. и если не трудно то преобразовать...
VasiliyLihasdb14.05.2022 10:49 -
Вчем состоит различия между растровыми изображениями и векторными рисунками?...
КатюшаМелихова06.03.2023 23:56 -
Всаду деревьев 100 д., из них - 33 яблони, 22 д. груши, 16 д. слив и 17...
СарварИбрагимов1115.11.2021 21:52 -
Чему равен информационный объем одной точки 1024-цветного растрового изображения...
Adilka1116.04.2021 19:31