Напишите программу, которая получает с клавиатуры два числа, одно из которых может не быть целым, и вычисляет их произведение, используя только операции сложения. Учтите, что числа могут быть отрицательными. Напишите программу, которая заполняет список пятью словами с клавиатуры, считает длину каждого слова и добавляет эти числа в другой список. Программа заканчивается выводом обоих списков, каждый в строку, но в разных абзацах.

Программа получает с клавиатуры длинное целое число и подсчитывает, сколько раз в его записи встречается заданная пользователем цифра.

Работа в пайтоне.нужно одну задачу решить очень надо ​

Задание 1.
var
  A, B, C, F: boolean;
  i, j, k: integer;

begin
  for i := 0 to 1 do
    for j := 0 to 1 do
      for k := 0 to 1 do
      begin
        A := (i = 1); B := (j = 1); C := (k = 1);
        F := ((A and B) and C) = (A and (B and C));
        Writeln('A=', A, ', B=', B, ', C=', C, ', результат сравнения:', F)
      end
end.

Результат выполнения программы:
A=False, B=False, C=False, результат сравнения:True
A=False, B=False, C=True, результат сравнения:True
A=False, B=True, C=False, результат сравнения:True
A=False, B=True, C=True, результат сравнения:True
A=True, B=False, C=False, результат сравнения:True
A=True, B=False, C=True, результат сравнения:True
A=True, B=True, C=False, результат сравнения:True
A=True, B=True, C=True, результат сравнения:True

Задание 2.
var
  a, b, c: integer;

begin
  for a := 1 to 9 do
    for b := 0 to 9 do
      for c := 0 to 9 do
        if sqr(10 * a + b) - sqr(c) = 100 * a + 10 * b + c then Writeln(a, b, c)
end.

Результат выполнения программы:
100
147

Любое двухзначное число записывается в виде 10*a+b, где а - число десятков (старшая цифра), b - число единиц (младшая цифра).
Тогда условие будет иметь вид: (a+b=n) или (a=n) или (b=n), где а меняется от 1 до 9, b меняется от 0 до 9.

var
  n, a, b: integer;

begin
  Write('Введите число n -> '); Readln(n);
  for a := 1 to 9 do
    for b := 0 to 9 do
      if (a + b = n) or (a = n) or (b = n) then Write(a, b, ' ');
  Writeln
end.

Тестовое решение:
Введите число n -> 7
16 17 25 27 34 37 43 47 52 57 61 67 70 71 72 73 74 75 76 77 78 79 87 97