Паскаль
1. Дано натуральное число N и N целых чисел, задаваемых пользователем. Определить, сколько среди этих N чисел двузначных. Массивы не использовать.
2. Дано натуральное число N и N целых трехзначных чисел, задаваемых пользователем. Определить, сколько среди этих N чисел таких, что произведение их цифр равно К. Массивы не использовать
1. Дано натуральное число N и N целых чисел, задаваемых пользователем. Определить, сколько среди этих N чисел двузначных. Массивы не использовать.
2. Дано натуральное число N и N целых трехзначных чисел, задаваемых пользователем. Определить, сколько среди этих N чисел таких, что произведение их цифр равно К. Массивы не использовать
More Questions From This User See All
Answers & Comments
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(ReadSeqInteger('Вводите числа:',ReadInteger('N='))
.Where(x->Abs(x).Between(10,99)).Count)
end.
Пример
N= 5
Вводите числа: 23 -4 100 -42 16
3
begin
var k:=ReadInteger('K=');
Writeln(ReadSeqInteger('Вводите трехзначные числа:',ReadInteger('N='))
.Where(m->Abs((m mod 10)*(m div 100)*(m div 10 mod 10))=k).Count)
end.
Пример
K= 8
N= 10
Вводите трехзначные числа: 142 712 426 -222 318 916 107 932 -116 473
2