Добавил:
korayakov
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабы / Pascal.1.курс / part 1 / variant 14 / lab7
.PAS { VARIANT 14 }
program lab7;
uses crt;
var
s,s1:string;
i,n,c:integer;
begin
clrscr;
write('Enter string: ');
readln(s);
s:=s+' ';
while pos(' ',s)<>0 do begin
s1:=copy(s,1,pos(' ',s)-1);
val(s1,n,c);
if c=0 then begin
writeln('Founded entry: ',n);
end;
delete(s,1,pos(' ',s));
end;
writeln('Press <enter> to exit');
readln;
end.
program lab7;
uses crt;
var
s,s1:string;
i,n,c:integer;
begin
clrscr;
write('Enter string: ');
readln(s);
s:=s+' ';
while pos(' ',s)<>0 do begin
s1:=copy(s,1,pos(' ',s)-1);
val(s1,n,c);
if c=0 then begin
writeln('Founded entry: ',n);
end;
delete(s,1,pos(' ',s));
end;
writeln('Press <enter> to exit');
readln;
end.