Разработать программу

@Bost · Регистрация: 21.12.2009

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

Разработать программу, которая вводит строку, содержащую фамилию, имя и отчество, а выводит - фамилию и инициалы.

Комментарий модератора

Оформляй нормально новые темы

@DeLuxe · 19.07.2010, 16:33

Pascal

uses crt;
var st:string;
    i,ix:integer;
begin
clrscr;
writeln('Введите фамилию, имя и отчество через пробел:');
readln(st);
for i:=1 to pos(' ',st) do write(st[i]);
write(st[pos(' ',st)+1],'.');
for i:=length(st) downto 1 do if st[i]=' ' then begin
ix:=i;
break;
end;
write(st[ix+1],'.');
readln
end.

Jabbson · 19.07.2010, 16:46

Pascal

uses crt;
var
s:string;
begin
 clrscr;
 write('ФИО: ');readln(s);
 write('ФИО: ',copy(s,1,pos(' ',s)), copy(s,pos(' ',s)+1,1),'. ');
 delete(s,pos(' ',s),1);
 write(copy(s,pos(' ',s)+1,1),'.');
 readkey;
end.

@Bost · 26.07.2010, 14:36 **[ТС]**

спасибо огромное но вот столкнулся с новой проблемой, как правильно отобразить блок схему?
без ней отказываются принимать программу.

Jabbson · 26.07.2010, 14:42

FCEditor, diamFC

@Bost 0 / 0 / 0 Регистрация: 21.12.2009 Сообщений: 15
	26.07.2010, 14:36 [ТС]	4
	спасибо огромное но вот столкнулся с новой проблемой, как правильно отобразить блок схему? без ней отказываются принимать программу. 0

Jabbson 5898 / 3355 / 1035 Регистрация: 03.11.2009 Сообщений: 10,003
	26.07.2010, 14:42	5
	FCEditor, diamFC 1