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

133

217

Посмотреть ответы 3

Ответы на вопрос:

игорь780

Информатика

4,5(85 оценок)

// pascalabc.net 3.3, сборка 1540 от 16.09.2017 // внимание! если программа не работает, обновите версию! begin writeln(readseqinteger('вводите числа: ',readinteger('n=')) .where(x-> abs(x).between(10,) 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

ZaykaYmnik

Информатика

4,4(89 оценок)

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 div 100)*((n div 10) mod 10)*(n mod 10)) = k) then sum: =sum+1; end; writeln('количество чисел: ',sum); end.