Необходимо сделать блок-схему, алгоритм и написать программу QBasicЗадача - Отыскать творенье

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

Задать свой вопрос
1 ответ
Var a,b,i,c,:longint;
begin
read(a);
c:=1;
for i:=1 to a do begin
read(b);
if blt;10 and bgt;0 then s:=c*b;
end;
write(c);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт