Использование стандартных процедур ифункций для работы со строками

@~~seva0813~~ · 04.07.2011, 18:45. **Показов** 1119. **Ответов** 1

Студворк — интернет-сервис помощи студентам

Заданы фамилия, имя и отчество учащегося, разделенные пробелом. Напечатать его фамилию и инициалы
Помогите решить, заранее спасибо!!!

@Puporev · 04.07.2011, 18:54

Pascal

uses crt;
var s,s1:string;
begin
clrscr;
writeln('Введите фамилию имя и отчество через пробел:');
readln(s);
s1:=copy(s,1,pos(' ',s)+1);
delete(s,1,pos(' ',s)+1);
delete(s,1,pos(' ',s));
s1:=s1+'. '+s[1]+'.' ;
write(s1);
readln
end.

@~~seva0813~~ Заблокирован
		1
	Использование стандартных процедур ифункций для работы со строками 04.07.2011, 18:45. Показов 1119. Ответов 1 Метки нет (Все метки) Заданы фамилия, имя и отчество учащегося, разделенные пробелом. Напечатать его фамилию и инициалы Помогите решить, заранее спасибо!!! 0

	04.07.2011, 18:54

Опции темы

Использование стандартных процедур ифункций для работы со строками

Решение