Написать программу(в паскале), которая спрашивала бы сокращенное имя, а печатало полное для пяти ваших друзей. Ввод незнакомого имени должен провоцировать заявление типа "Я с Вами не знакома".

1

Ответы и объяснения

Лучший Ответ!
2012-03-06T17:10:46+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var s:string;
BEGIN
  writeln('Как вас зовут?');
    readln(s);
    case s of
      'Вася': s:='Василий';
      'Петя': s:='Петр';
      'Люся': s:='Людмила';
      'Миха': s:='Михаил';
      'Пупс': s:='Пупондий';
        else s:='Я с вами не знакома';
    end;
    
    writeln(s);
    readkey;
END.