Найти наивысшую и наименьшую числа числа. Верно ли, что данное число

Отыскать наивысшую и наименьшую числа числа. Правильно ли, что данное число заканчивается на их?
Нужна программка в турбо паскаль

Задать свой вопрос
1 ответ

var a: array[0..9] of integer;
    s: string;
    i,j: integer;
begin
  for i:=0 to 9 do a[i]:=0;
  write('число: ');  readln(s);
  for i:=1 to length(s) do inc(a[ord(s[i])-48]);
  i:=9;
  while a[i]=0 do i:=i-1;
  j:=i;
  i:=0;
  while a[i]=0 do i:=i+1;
  if (chr(j+48)+chr(i+48)=s[length(s)-1]+s[length(s)]) or
     (chr(i+48)+chr(j+48)=s[length(s)-1]+s[length(s)]) 
     then writeln('Да')
  else writeln('Нет');   
end.

число: 18245390
Да

число: 1205483Нет



Ракитская Злата
если будут вопросы ответишь?
Вячеслав Ростропович
слушай здесь пишит да если число оканчиваеться на 0
Leha Kindienkov
а если я допустим ввожу число 13571 и малая цифра 1 значит проверка заканчиваеться ли число "13571" на 1 писала да
Арсений Ведененков
а если число 459249 и максимальная цифра 9 означает заканчиваеться оно на 9 если да то писала да если нет то нет
Aleksandra Kannishheva
Программка пишет "Да", если 2 заключительные числа числа совпадают с наибольшей и малой цифрами.
Виталька Ушкал
Вопрос в программке не совершенно корректен. Что значит, что программка кончается на их? Можно осознать как, последняя цифра числа или малая, либо наибольшая, или 2 заключительные цифры наибольшая и минимальная?
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт