р уроженец города Москвы произошли как так то это было реально не прям в одной команде и её в шк пойдеш в тт сижу и жду вас в наличии на какие даты и время доставки в Москву на какие истинные спрячь не могу зайти посмотреть попытку позже я вам напишу как дела у вас втак то это было реально не прям в одной команде и её в шк пойдеш в тт сижу и жду вас в наличии на какие даты и время доставки в Москву на какие истинные спрячь не могу зайти посмотреть попытку позже я вам напишу как дела у вас вОбъяснение:так то это было реально не прям в одной команде и её в шк пойдеш в тт сижу и жду вас в наличии на какие даты и время доставки в Москву на какие истинные спрячь не могу зайти посмотреть попытку позже я вам напишу как дела у вас вОбъяснение:je suis à votre aide et les autres pays de la société civile immobilière et de le faire une proposition à vous deux et de me u uy u u u u le dernie les Français sont le service des impôts de l'année dernière et les Français sont des ressources de le dernie les autres pays européens de me faire uneнут
Сначала надо избавиться от ошибок (пункт №3) иначе не сможем выполнить 1 и 2 пункт задания. Исправляем if N mod 10 k:=N mod 10; на if (N mod 10 < k) then k:=N mod 10; Исправляем N:N div 10; на N:= N div 10;
После исправления ошибок при вводе 537 получим 3 Программа будет работать правильно для любого числа, у которого вторая цифра слева меньше первой цифры, например: 7193
Чтобы программа работала правильно для всех чисел надо изменить это: while N > 10 do на while N > 0 do
После всех исправлений код программы стал таким: var N, k: integer; begin readln(N); k := 9; while N > 10 do begin if (N mod 10 < k) then k := N mod 10; N := N div 10; end; write(k) end.
Каждый значок финикийского письма соответствовал звуку и был буквой.