Напишите программу, которая в последовательности натуральных чисел определяет произведение чисел, которые являются двузначными. Программа получает на вход количество чисел в последовательности, а затем сами числа . В Паскале.

Ответ

Автор - supersuperkirip54irs

var N,i,a,p:integer;

BEGIN

readln(N);

p:=1;

for i:=1 to N do begin

read(a);

if (a>9) and (a<100) then

p:=p*a;

end;

writeln(p);

end.

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.