Имеются две кучки камней, в одной из которых 13 штук, а в другой 17. Исполнитель имеет два допустимых действия: а) взять из первой кучки два камня и переложить их во вторую;
б) взять из второй кучки 5 камней и переложить их в первую и умеет проверять, остались ли в кучке камни.
Исполнитель выполняет алгоритм:
Делать пока (в первой кучке есть камни) и (во второй кучке есть камни)
{Взять из первой кучки 2 камня и переложить их во вторую;
Взять из второй кучки 5 камней и переложить их в первую;}
через несколько шагов исполнитель прекратил работу, потому что:
1) кончились камни в первой кучке;
2) кончились камни во второй кучке;
3) не может исполнить допустимое действие а;
4) не может исполнить допустимое действие б.
PascalABC.NET 3.2, сборка 1417 от 28.03.2017
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Введите двухзначное число:');
Writeln('Максимальная цифра ',max(n div 10, n mod 10))
end.
2. Школьное решения уровня ТурбоПаскаль 1983г.
var
n,d,e,max:integer;
begin
Write('Введите двухзначное число: ');
Read(n);
d:=n div 10;
e:=n mod 10;
if d>e then max:=d
else max:=e;
Writeln('Максимальная цифра ',max)
end.
3. Пример работы обоих программ (одинаковый)
Введите двухзначное число: 37
Максимальная цифра 7