Question

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

Answer 1

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.