Удаление пробелов перед началом текста строки
Протокол работы программы
Работа с простейшим паролем
Program parol;
uses CRT;
var
name:string[30];
parol:string[6];
begin
clrscr;
writeln('vvedite parol iz 6 simvolov ');
readln(parol);
writeln;
if parol='Pascal' then begin
writeln('Vvedite famil ');
readln(name);
writeln;
writeln(name,', Vam dostup razreshen!');
end
else begin
writeln('Neverniy parol! Dostup zapreshen!');
end;
readln;
end.
Program del_probel;
uses CRT;
var
st:string[30]; k: byte;
begin
clrscr;
writeln('Vvedite stroku');
readln(st);
writeln;
k:=0;
while (pos(' ',st) = 1) and (length(st)>0) do
begin
delete(st,1,1);
k:=k+1;
end;
writeln('Stroka bez probelov:',st);
writeln;
write('Udaleno ', k,' probela(ov)');
Repeat
Until
KeyPressed
end.