Cod sursa(job #137083)
| Utilizator | Data | 16 februarie 2008 21:21:37 | |
|---|---|---|---|
| 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.