Ответы на вопрос:
Var n,p,k: integer; begin readln (n); p: =n; while p< > 0 do begin k: =k+1; p: =p div 10; end; writeln ('k=',k); end.
Популярно: Информатика
-
13. сколько 4-х буквенных слов можно составить из трёх букв а, б и с, если буквы...
дэнчик6009.03.2022 16:06 -
Написать программу с процедурой подсчет кол-во часов, минут, секунд в данном...
katyakantalins19.12.2021 05:01 -
Крассворд на тему хранение информации на компьютере...
DISTANOV13.08.2021 02:35 -
Как записывается десятичное число пять в двоичной системе счисления? 1) 101...
444346823476339904.08.2021 12:57 -
Определите значение переменной «a» после выполнения фрагмента программы: a :=...
SlivkO0O15419.03.2020 02:21 -
Составить 3 по информатике по теме коммуникационные технологии(таблицей или...
Елена0911119.08.2021 10:25 -
Запишите результат выполнения программы: var s,a: string; i: byte; begin s:=...
AkiraK66630.10.2022 11:50 -
Задание для программирования на С++...
s145384924.11.2020 23:10 -
Определить, есть ли среди заданного 4-хзначного числа одинаковые цифры. (Пояснение:...
Aurusu12.11.2021 07:42 -
Представьте число 6310 в беззнаковом 8-разрядном формате...
fullwalkgroundEger07.08.2022 14:42