Question

Какое значение будет принимать переменная у после выполнения программы: Var x, y:integer; Begin y:=1 ; x:=15 repeat y:=y*x; x:=x-3 until x<5; Writeln (' y=' ,y); End x y Y=y*x 15 1 15 заполните таблицу до конца

Answer 1

Не знаю что за :
"x y Y=y*x
15 1 15"
Но у меня получилось вот такое вот число : 9720

Answer 2

После выполнения программы, значение переменной y будет равно 3375.

Таблица заполнения переменных:

----------------------- | x | y | Y | ----------------------- | 15 | 1 | | ----------------------- | 12 | 15 | | ----------------------- | 9 | 180 | | ----------------------- | 6 | 1620 | | ----------------------- | 3 | 9720 | | ----------------------- | 0 | 58320 | 3375 | -----------------------