Сначала надо избавиться от ошибок (пункт №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.
Логические знаки не дает вставлять - пишу их союзами и частицами подчеркнутыми. 1) Число 376 четное и трехзначное. А = "Число 376 четное" В = "Число 376 трехзначное" А и В 2) Неверно, что Солнце движется вокруг Земли. А = "Солнце движется вокруг Земли" Не А 3) Земля имеет форму шара. А = "Земля имеет форму шара" А 4) На уроке математики старшеклассники отвечали на вопросы учителя и писали самостоятельную работу. А = "На уроке математики старшеклассники отвечали на вопросы учителя" В = "На уроке математики старшеклассники писали самостоятельную работу" А и В 5) Если сумма цифр числа делится на 3, то число делится на 3. А = "Сумма цифр числа делится на 3" В = "Число делится на 3" А стрелка к В 6) Число делится на 3 тогда и только тогда, когда сумма цифр числа делится на 3 А = "Число делится на 3 " В = "Сумма цифр числа делится на 3" А стрелка в обе стороны В
Begin
Writeln('введите число');
Readln (m);
A:=m div 100;
b:=m div 1000;
Writeln('центнеров',a,'тонн',b);
Readln;
End.