Cod sursa(job #137081)
Utilizator | Budisteanu Ionut Alexandru nod_software | Data | 16 februarie 2008 21:17:01 |
---|---|---|---|
Problema | Fructe | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.45 kb |
program NOD_SOFTWARE;
var a,b:longint;
t,i,j:integer;
fin,fout:text;
{*-----------------------------*}
{*-------------MAIN------------*}
begin
assign(fin,'fructe.in'); reset(fin);
assign(fout,'fructe.out'); rewrite(fout);
readln(fin,t);
for i:=1 to t do
begin
readln(fin,a,b);
if a=b then writeln(fout,'1')
else writeln(fout,'0');
end;
close(fin);
close(fout);
end.