Question

Problema 1. Vă rog este urgent!!

Answer 1

var a,b,x,y,z,t: integer;
Beginr
ead(a,b);
x:=a mod 10;
y:=a div 10;
z:=b mod 10;
t:=b div 10;
if (x=z) or (x=t) or (y=z) or (y=t) then writeln('Da')                                 
                                                 else writeln('Nu'); 
End.