Question

Нужно сделать блок-схему, алгоритм и написать программу QBasic
Задача - Найти произведение однозначных положительных цифр. (это циклический алгоритм) цифры - 1,2,3...9

Answer 1

var a,b,i,c,:longint;
begin
read(a);
c:=1;
for i:=1 to a do begin
read(b);
if b<10 and b>0 then s:=c*b;
end;
write(c);
end.