1. Напечатать все двузначные числа, которые делятся на сумму своих цифр.
2. Найти количество двухзначных чисел, которые делятся на сумму своих цифр.
3. Вывести на экран все целые числа от 100 до 200, кратные трём.
Решить через питон не использовать for и if
USES CRT;
VAR A:array[1..100] of Longint;
s:integer;
x,i:Longint;
BEGIN
CLRSCR;
Repeat
Writeln('Введите 7-ми значное число');
Readln(x);
i:=x;
s:=0;
while i>0 do
begin
i:=i div 10;
s:=s+1;
end;
if s > 7 then Writeln('Вы ввели число больше');
if s < 7 then Writeln('Вы ввели число меньше');
Writeln;
until s=7;
for i:=1 to 7 do
begin
A[i]:=x mod 10;
x:=x div 10;
end;
for i:=1 to 7 do
Write(A[i],' ');
READLN;
END.