Напиши прграмму к 1 задаче на языке паскаля

Конечно! Вот пример программы на языке Паскаль для решения первой задачи из условия:

program Task1;

uses crt;

var
  num, count: integer;
  digit: integer;

begin
  clrscr;
  count := 0;
  Write('Введите число: ');
  ReadLn(num);
  
  while num <> 0 do
  begin
    digit := num mod 10; // извлекаем последнюю цифру
    if digit = 1 then
      Inc(count);
    num := num div 10; // удаляем последнюю цифру
  end;
  
  WriteLn('Количество чисел, содержащих цифру 1: ', count);
  ReadLn;
end.

Объяснение решения:

1. Считываем число, введённое пользователем.
2. Используем цикл while, чтобы просматривать каждую цифру числа.
3. Внутри цикла:
   • Извлекаем последнюю цифру с помощью операции mod 10.
   • Проверяем, равна ли она 1.
   • Если да, увеличиваем счётчик.
   • После этого делим число на 10, чтобы "сбросить" последнюю цифру.
4. После окончания цикла выводим количество цифр 1, найденных в числе.

Если нужно, могу дополнительно прокомментировать или адаптировать код под ваши требования!