h1

Программа, удаляющая заданное количество слов

Июль 2, 2009

Программа, удаляющая заданное количество слов с начала строки. Экзамен по программированию на 1 курсе. 

program examen;
uses crt;
var s:string; x:char; i,n,k,m:byte;
begin clrscr;
writeln(‘vvedite stroky: ‘); readln(s);
writeln(‘vvedite K: ‘); readln(k);
for i:=1 to k do begin
m:=pos(‘ ‘,s);
delete(s,1,m);
end;
writeln(‘gotovo: ‘,s);
readkey;
end.

Advertisements

Добавить комментарий

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Логотип WordPress.com

Для комментария используется ваша учётная запись WordPress.com. Выход / Изменить )

Фотография Twitter

Для комментария используется ваша учётная запись Twitter. Выход / Изменить )

Фотография Facebook

Для комментария используется ваша учётная запись Facebook. Выход / Изменить )

Google+ photo

Для комментария используется ваша учётная запись Google+. Выход / Изменить )

Connecting to %s

%d такие блоггеры, как: