Уровень B. Напишите программу, которая получает с клавиатуры натуральное число и определяет, сколько раз в его десятичной записи встречается цифра 1.

uses School;

begin

 Digits(ReadInt64).Count(p -> p = 1).Print

end.

Объяснение:

School - стандартная библиотека для решения школьных задач, вошедшая в PascalABC.NET, начиная с версии 3.6.3

Ну или для PascalABC.NET Более старых версий (Не имеющих поддержки библиотеки School):

begin

 ReadInt64().ToString.ToCharArray.Count(p -> p = '1').Println;

end.

Объяснение:

program xxx;   var a,b, c : integer; begin

  writeln('введите 3 числа-');

  read(a,b,c);   if a> =0 then a: = sqr(a);

  if b> =0 then b: = sqr(b);

  if c> =0 then c: = sqr(c);

  writeln('ответ: ');

  write(a, b, c);

  readlnend.

мощность n=16

n=2^i где i-количество информации в символе

тогда i=4

информационный объем i равен i*k где k - количество символов в тексте

значит i =4*540=2160