FORUM
Pagina de start a forumului eggzit.3xforum.ro
|
Nou pe simpatie:
Bianca777
 | Femeie
24 ani
Brasov
cauta Barbat
27 - 64 ani |
|
|
FORUMReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
 eggzitUsername: 6R9PKQUKKU
Postari: 215
|
|
{doua cuvinte cu maxim 30 de caractere de la
tastatura. sa se verifice dak ele au acelasi
prefix}
program optsprezece;
var s1,s2,pmax:string[40];
i,j,min:byte;
begin
write('primul sir: ');readln(s1);
write('al doi-lea sir: ');readln(s2);
min:=length(s1);
if length(s2)<min then min:=length(s2);
i:=1; pmax:='';
while (s1[i]=s2[i]) and(i<=min) do begin
pmax:=pmax+s1[i];
i:=i+1;
end;
if pmax<>'' then writeln('prefixul este: ',pmax)
else writeln('nu au acelasi prefix');
readln;
end.
|
|
| |
|
