Программа на паскале (без проверки правильности ввода): var s:string; a,b,code:integer; begin write('s = '); readln(s); val(s[1]+s[2],a,code); val(s[4]+s[5],b,code); if a>=b then writeln(a,'>',b) else if a<b then writeln(a,'<',b) else writeln(a,'=',b); end.
Answers & Comments
Verified answer
Программа на паскале (без проверки правильности ввода):var s:string; a,b,code:integer;
begin
write('s = ');
readln(s);
val(s[1]+s[2],a,code);
val(s[4]+s[5],b,code);
if a>=b
then writeln(a,'>',b)
else if a<b then writeln(a,'<',b)
else writeln(a,'=',b);
end.
Пример:
s = 67?94
67<94