Даны три числа. С помощью функции, определяющей первую цифру натурального числа вывести на экран наименьшую из цифр - Pascal ABC

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

Помогите решить. 7. Даны три числа. С помощью функции, определяющей первую цифру натурального числа вывести на экран наименьшую из полученных цифр. Например, если а=25; b=730; c=1236, то должна напечататься цифра 1.

Код к задаче: «Даны три числа. С помощью функции, определяющей первую цифру натурального числа вывести на экран наименьшую из цифр - Pascal ABC»

textual
var
  a, b, c : integer;
 
{функция определения первой цифры}
function fdig(z : integer) : integer;
var t : integer;
begin
  t := z;
  while t > 10 do
    t := t div 10;
  fdig := t
end;
 
{функция определения наименьшего значения}
function min(x, y : integer) : integer;
begin
  if x > y then min := y else min := x
end;
 
begin
  write('введите 3 числа: ');
  readln(a, b, c);
  writeln('наименьшая первая цифра: ', min(fdig(a), min(fdig(b), fdig(c))))
end.

6   голосов, оценка 3.500 из 5


СОХРАНИТЬ ССЫЛКУ