Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Помогите решить 5.1 (б)

Ответ оставил Гость

// PascalABC.Net 3.0, сборка 1066
var
  Fam,Im,Ot:string;
begin
  Write(Введите фамилию: ); Readln(Fam);
  Write(Введите имя: ); Readln(Im);
  Write(Введите отчество: ); Readln(Ot);
  Writeln(Результат: ,Im[1]+.+Ot[1]+.+Fam)
end.

Тестовое решение:
Введите фамилию: Пупкин
Введите имя: Василий
Введите отчество: Иванович
Результат: В.И.Пупкин