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