Нужно сделать блок-схему, алгоритм и написать программу QBasic

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

Question

Аполинадия

1 февраля, 11:21

+1

Ответы (1)

Знаете ответ на вопрос?

Всевлад · Answer 1

Var a, b, i, c,:longint;

begin

read (a) ;

c:=1;

for i:=1 to a do begin

read (b) ;

if b0 then s:=c*b;

end;

write (c) ;

end.

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