Question

С клавиатуры вводится строка, содержащая фамилию и имя. Составьте программу, которая: а) выводит фамилию и сокращенное имя (путем удаления оставшихся букв имени); б) удаляет фамилию и выводит на экран имя в верхнем регистре. Пример: а) Данилович Никита - Данилевич Н. б) Данилович Никита - НИКИТА (Паскаль)

Answer 1

Ответ:

а)

program z7a;

var s: string;

begin

readln(s);

Delete(s,Pos(' ',s)+2,Length(s));

Insert('.',s,Length(s)+1);

writeln(s);

end.

б)

program z7b;

var s: string;

i:integer;

begin

readln(s);

Delete(s,1,Pos(' ',s));

for i:=1 to Length(s) do s[i]:=UpCase(s[i]);

writeln(s);

end.

Объяснение:

фото