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

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

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

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

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

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

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

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

http://znanija.com/task/21279530

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

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

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.

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();