Напишите, что выведет программа при вводе числа 537? - Pascal

Узнай цену своей работы

Формулировка задачи:

Требовалось написать программу, при выполнении которой с клавиатуры считывается натуральное число N, не превосходящее 10^9, и выводится минимальная цифра этого числа. Программист торопился и написал программу неправильно. PASCAL
var N,k:integer;
begin
readln(N);
k:=9;
while N > 10 do
begin
if N mod 10 k:=N mod 10;
N:N div 10;
end;
write(k)
end.
Последовательно выполните следующее. 1. Напишите, что выведет эта программа при вводе числа 537? 2. Приведите пример такого числа, при котором программа работает верно. 3.Укажите все ошибки в программе и исправьте их.Для этого для каждой ошибки выпишите строку ,которая написана неправильно и приведите правильный вариант строки.

Решение задачи: «Напишите, что выведет программа при вводе числа 537?»

textual
Листинг программы
var N,k:longint;
begin
  readln(N);
  k:=9;
  while N > 0 do begin
    if N mod 10<k then k:=N mod 10;
    N:=N div 10;
  end;
   write(k)
end.

Объяснение кода листинга программы

  1. Ввод числа N с помощью функции readln
  2. Инициализация переменной k значением 9
  3. Цикл while, который выполняется до тех пор, пока N больше 0
  4. Внутри цикла проверка, если N mod 10 меньше или равно k, то значение k присваивается N mod 10
  5. Деление N на 10 с помощью функции div
  6. После каждой итерации циклы значение N уменьшается на 10
  7. По завершении цикла выводится значение k с помощью функции write

Оцени полезность:

12   голосов , оценка 3.917 из 5
Похожие ответы