Ввести фамилию, имя, отчество. Вывести 3 буквы свои инициалы с точкой.

@vitaliy1111 · Регистрация: 30.05.2012

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

@Magaragorn · 16.10.2012, 12:36

Pascal

var a,b:string;
c,d,i:integer;
begin
readln(a);{Ââîä ÔÈÎ}
b:=a[1]+'.';
b:=b+a[pos(' ',a)+1]+'.';
delete(a,1,pos(' ',a));
delete(a,1,pos(' ',a)-1);
b:=b+a[pos(' ',a)+1]+'.';
write(b);
end.

@vitaliy1111 0 / 0 / 0 Регистрация: 30.05.2012 Сообщений: 58
		1
	Ввести фамилию, имя, отчество. Вывести 3 буквы свои инициалы с точкой. 16.10.2012, 00:34. Показов 4443. Ответов 1 Метки нет (Все метки) Ввести фамилию, имя, отчество. Вывести 3 буквы свои инициалы с точкой. 0

	16.10.2012, 12:36

Ввести фамилию, имя, отчество. Вывести 3 буквы свои инициалы с точкой.

Решение