Выделите правильные значения так, чтобы программу можно было использовать как «кодовый замок» со значением ключа 1234. Var password: integer; Begin [Repeat / while / for] [Readln / writeln / random] (password) [Until / do /[ = 1234; / <1234 / <> 1234;] [Write / Readln / Random ] ( [‘Замок открыт’ / ‘Замок закрыт’ / ‘Повторите ввод’ ] ) End.
Var password: integer;
Begin
[Repeat / while / for]
[Readln / writeln / random] (password)
[Until / do /[ = 1234; / <1234 / <> 1234;]
[Write / Readln / Random ] ( [‘Замок открыт’ / ‘Замок закрыт’ / ‘Повторите ввод’ ] )
End.
Ответ на фото: