Помогите, пожалуйста, решить задачу в ПАСКАЛЕ
Одна из основных операций с числами – их сравнение. Мы подозреваем, что вы в совершенстве владеете этой операцией и можете сравнивать любые числа, в том числе и целые. В данной задаче необходимо сравнить два целых числа.
Входные данные
В двух строчках входного файла INPUT.TXT записаны числа A и B, не превосходящие по абсолютной величине 2×109.
Выходные данные
Запишите в выходной файл OUTPUT.TXT один символ “<”, если A < B, “>”, если A > B и “=”, если A=B.
1. 5 7 (<)
2. -7 -12 (>)
3. 13 13 (=)
Ответы
Ответ дал:
0
var
a, b:integer;
f,w:text;
begin
assign(f,'input.txt');reset(f);
assign(w, 'output.txt');rewrite(w);
Readln(f, a, b);
if (a > b) then Writeln(w, '>');
if (a < b) then Writeln(w, '<');
if (a = b) then Writeln(w, '=');
close(f);close(w);
end.
Пример:
input.txt: 100 99
output.txt : >
a, b:integer;
f,w:text;
begin
assign(f,'input.txt');reset(f);
assign(w, 'output.txt');rewrite(w);
Readln(f, a, b);
if (a > b) then Writeln(w, '>');
if (a < b) then Writeln(w, '<');
if (a = b) then Writeln(w, '=');
close(f);close(w);
end.
Пример:
input.txt: 100 99
output.txt : >
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад