Паскаль

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

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

Var N, sum:integer;

begin

sum:=0;

write ('Введите N:') ;

readln (N) ;

for var i: = 1 to N do

begin

readln (N) ;

if (abs (N) >9) and (abs (N) <=99) then

sum:=sum+1;

end;

writeln ('Количество двузначных чисел:', sum) ;

end.

var N, K, sum:integer;

begin

sum:=0;

write ('Введите N:') ;

readln (N) ;

write ('Введите K:') ;

readln (K) ;

for var i: = 1 to N do

begin

readln (N) ;

if (abs (N) >9) and (abs (N) <=99) then

if (((N div 100) * ((N div 10) mod 10) * (N mod 10)) = K) then

sum:=sum+1;

end;

writeln ('Количество чисел:', sum) ;

end.