h1

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

Июль 2, 2009

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

program gg;
uses crt;
var st,st1,st2:string; x:char; i:byte;
begin clrscr;
writeln(‘vvod: ‘); readln(st);
st:=st+’ ‘;
st2:=»;
while pos(‘ ‘,st)>0 do
begin
st1:=copy(st,1,pos(‘ ‘,st)-1);
x:=st1[1];
st1[1]:=st1[length(st1)];
st1[length(st1)]:=x;
st2:=st2+st1+’ ‘;
delete(st,1,pos(‘ ‘,st));
end;
writeln(st2);
readkey;
end.

Advertisements

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

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

Логотип WordPress.com

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

Фотография Twitter

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

Фотография Facebook

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

Google+ photo

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

Connecting to %s

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