Предмет: Информатика,
автор: Nazmit
Дано натуральное число N (1<=N<=10000). Требуется написать программу, определяющую для N, какая цифра больше - первая или последняя
Тех. Требования:
Входной файл: INPUT.TXT
Выходной файл: OUTPUT.TXT
Ограничение по времени 1 секунда
Формат входных данных:
В единственной строке задано число N.
Формат выходных данных:
В единственной стоке необходимо вывести один символ: "=", если цифры одинаковые"<", если первая цифра меньше последней, и ">", если первая цифра больше последней.
Пример файла входных данных:
1234
Пример файла выходных данных:
Ответы
Автор ответа:
0
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.
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.
Приложения:
Автор ответа:
0
Оно и компилируется, и выполняется. Для всех трех веток.
Автор ответа:
0
Вот прицепил файл входной
Автор ответа:
0
http://znanija.com/task/21279530
Автор ответа:
0
http://znanija.com/task/21279530 Помогите прошу
Автор ответа:
0
http://znanija.com/task/21279530 Эникей уважаемый помогите(
Автор ответа:
0
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();
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();
Приложения:
Автор ответа:
0
Для недоверчивых можно писать var c1:=s[1].ToInteger;
Автор ответа:
0
мне вообще казалось, что переменные в паскале объявляются только в начале
Автор ответа:
0
видимо нам когда-то что-то не дорассказали
Автор ответа:
0
PascalABC.NET поддерживает "конвейеры" в правой части, как в .*nix
Автор ответа:
0
Вам "не дорассказали" очень многое...
Интересные вопросы
Предмет: Английский язык,
автор: Аноним
Предмет: Биология,
автор: varya1744
Предмет: География,
автор: artumaorgun
Предмет: Информатика,
автор: Nika0677
Предмет: Математика,
автор: ilyashparaga