Паскаль
1. Дано натуральное число N и N целых чисел, задаваемых пользователем. Определить, сколько среди этих N чисел двузначных. Массивы не использовать.
2. Дано натуральное число N и N целых трехзначных чисел, задаваемых пользователем. Определить, сколько среди этих N чисел таких, что произведение их цифр равно К. Массивы не использовать

Abs - поскольку сказано, что числа целые, а нее натуральные.

*не натуральные, т.е. могут быть отрицательными

var N,sum:integer;beginsum:=0;write('Введите N:');readln(N);for var i:= 1 to N dobeginreadln(N);if (abs(N)>9) and (abs(N)<=99) thensum:=sum+1;end;writeln('Количество двузначных чисел:',sum);end. var N,K,sum:integer;beginsum:=0;write('Введите N:');readln(N);write('Введите K:');readln(K);for var i:= 1 to N dobeginreadln(N);if (abs(N)>9) and (abs(N)<=99) thenif (((N div 100)*((N div 10) mod 10)*(N mod 10)) = K) thensum:=sum+1;end;writeln('Количество чисел:',sum);end.