Program Evklid;
var M,N : integer;
begin
writeln (`Введите M и N`);
readln (M , N);
while M<>N do
begin
if M>N
then M:=M-N
else N:=N-M
end;
write (`нод =`,M);
end.
На сколько информация доступна пользователю и на сколько она ему понятна
25 перемнная______________________
<em>а) Поместить2 </em>
<em>Ждать</em>
<em>Перевернуть2</em>
<em>Ждать</em>
<em>Убрать2</em>
<em>Поместить2</em>
<em>Ждать</em>
<em>Перевернуть2</em>
<em>Ждать</em>
<em>Урать2</em>
<u>б) Поместить2</u>
<u>Ждать</u>
<u>Перевернуть2</u>
<u>Ждать</u>
<u>Убрать2</u>
<u>Поместить2</u>
<u>Ждать</u>
<u>Убрать1</u>
<u>Поместить1</u>
<u>Ждать</u>
<u>Убрать1</u>
<u>Поместить1</u>
<u>Ждать</u>
<u>Убрать2</u>