Дан алгоритм:
Начало
Присвоить a значение 1
Присвоить b значение 1
Присвоить c значение 0
Пока a меньше чем 1001
Начало цикла
Присвоить b значение b * a
Присвоить a значение a + 1
Конец цикла
Пока b делится на 6
Начало цикла
Присвоить c значение c + 6
Присвоить b значение b / 6
Конец цикла
Вывести c на экран
Конец
Что будет выведено на экран?
Answers & Comments
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