Напишите программу, которая в последовательности натуральных чисел определяет произведение чисел, которые являются двузначными. Программа получает на вход количество чисел в последовательности, а затем сами числа . В Паскале.
Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад