Дано натуральное число N (1<=N<=10000). Требуется написать программу, определяющую для N,...

Question

Дано натуральное число N (1<=N<=10000). Требуется написать программу, определяющую для N, какая цифра больше - первая или последняя<br> Тех. Требования:
Входной файл: INPUT.TXT
Выходной файл: OUTPUT.TXT
Ограничение по времени 1 секунда
Формат входных данных:
В единственной строке задано число N.
Формат выходных данных:
В единственной стоке необходимо вывести один символ: "=", если цифры одинаковые"<", если первая цифра меньше последней, и ">", если первая цифра больше последней.
Пример файла входных данных:
1234
Пример файла выходных данных:

Answer 1

Var
  n,d:integer;
  f:Text;
begin
  Assign(f,'input.txt'); Reset(f);
  Read(f,n);
  Assign(f,'output.txt'); Rewrite(f);
  d:=n mod 10;
  while n>=10 do n:=n div 10;
  if n>d then Writeln(f,'>')
  else
    if n=d then Writeln(f,'=') else Writeln(f,'<');<br>  Close(f)
end.

---

Скачать вложение Текст (TXT)

Comments

Строка " Read(f,n); входная строев имеет неверный формат

---

Я проверял, все работает.

---

Проверьте, что и как Вы задали.

---

подтверждаю, компилируется.

---

Оно и компилируется, и выполняется. Для всех трех веток.

---

Вот прицепил файл входной

Answer 2

Char * buffer = new char[1000];

ifstream filein("INPUT.TXT", ios::in);
filein.getline(buffer, 1000);
filein.close();

string str = string(buffer);
delete[] buffer;

ofstream fileout("OUTPUT.TXT", ios::out);
if (str[0] == str[str.length() - 1]) fileout << "=";<br>if (str[0] == str[str.length() - 1]) fileout << "<";<br>if (str[0] == str[str.length() - 1]) fileout << ">";
fileout.close();

Comments

Законно. Во всех кодовых таблицах символы цифр идут подряд.

---

да, вот этот момент забыл))

---

А иначе бы не работали корректно программы сортировки )))

---

Т.е. операционка должна корректно сортировать имена My1File и My2File

---

я понял)

---

Для недоверчивых можно писать var c1:=s[1].ToInteger;

---

мне вообще казалось, что переменные в паскале объявляются только в начале

---

видимо нам когда-то что-то не дорассказали

---

PascalABC.NET поддерживает "конвейеры" в правой части, как в .*nix

---

Вам "не дорассказали" очень многое...