Question

Дано натуральное число N (1<=N<=10000). Требуется написать программу, определяющую для N, какая цифра больше - первая или последняя
Тех. Требования:
Входной файл: 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,'<');
  Close(f)
end.

b6addbf470a0ba16848efa7eee45b141.txt

Answer 2

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

Answer 3

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

Answer 4

http://znanija.com/task/21279530

Answer 5

http://znanija.com/task/21279530 Помогите прошу

Answer 6

http://znanija.com/task/21279530 Эникей уважаемый помогите(

Answer 7

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 << "=";
if (str[0] == str[str.length() - 1]) fileout << "<";
if (str[0] == str[str.length() - 1]) fileout << ">";
fileout.close();

b6addbf470a0ba16848efa7eee45b141.txt

Answer 8

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

Answer 9

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

Answer 10

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

Answer 11

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

Answer 12

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