Дан алгоритм:

Начало

Присвоить a значение 1

Присвоить b значение 1

Присвоить c значение 0

Пока a меньше чем 1001

Начало цикла

Присвоить b значение b * a

Присвоить a значение a + 1

Конец цикла

Пока b делится на 6

Начало цикла

Присвоить c значение c + 6

Присвоить b значение b / 6

Конец цикла

Вывести c на экран

Конец

Что будет выведено на экран?

Question

Валентыч

18 августа, 12:55

+3

Ответы (1)

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

Егорий · Answer 1

Program A;

const

a, b, c : double

Begin

a=1

b=1

c=0

b:=b*a

a:=a+1

b:=b/6

c:=c+6

b=b/6/6

end.

Это на Pascal