profile
Опубликовано 5 лет назад по предмету Информатика от televus

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

  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.

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