|
|
вернуться в форумvar
n,i,j:byte;
s:array[1..100]of string[31];
begin
readln(n);
for i:=1 to n do
begin
readln(s[i]);
for j:=1 to i-1 do
if s[i]=s[j] then writeln(s[i]);
end;
end.
______________________________
HELP PLZ try test from example ))))
your program writes something like this
abikbaev
abikbaev
abikbaev
x
it is just fun)
Edited by author 23.11.2007 00:51 Please, can you give accepted code? I did not understand this program. |
|
|
