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

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

Question

Браги

21 августа, 09:51

+2

Ответы (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