FORUM
Pagina de start a forumului eggzit.3xforum.ro 		Lista Forumurilor Pe Tematici
FORUM | Reguli | Inregistrare | Login

POZE FORUM

Nu sunteti logat. 		Nou pe simpatie:
monaahmed2012
Femeie
25 ani
Calarasi
cauta Barbat
25 - 48 ani
FORUM / Forum Nou / 18  
Autor
Mesaj Pagini: 1
eggzit
Username: 6R9PKQUKKU

Inregistrat: acum 20 ani
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.
pus acum 18 ani
   
Pagini: 1  

Mergi la