даны 2 четырехзначные числа, как в паскале найти сколько цифр в них совпадают
Answers & Comments
Wani4kaa
Var a,b:array[1..4] of longint;i,j,x,y,k:longint; Begin read(x,y); for i:=1 to 4 do begin a[i]:=x mod 10; x:=x div 10; end; for i:=1 to 4 do begin b[i]:=y mod 10; y:=y div 10; end; for i:=1 to 3 do for j:=i+1 to 4 do if (a[i]=b[j]) then k:=k+1; writeln(k); End.
Answers & Comments
Begin
read(x,y);
for i:=1 to 4 do
begin
a[i]:=x mod 10;
x:=x div 10;
end;
for i:=1 to 4 do
begin
b[i]:=y mod 10;
y:=y div 10;
end;
for i:=1 to 3 do
for j:=i+1 to 4 do
if (a[i]=b[j]) then k:=k+1;
writeln(k);
End.