Составьте программу, которая запрашивает имя (один из символов: 'а' — Алексей, 'с' — Сергей, 'м' — Михаил, 'к' — Константин) и отчество ('б' — Борисович или 'с' — Сергеевич) и выдаёт их полное название. Протокол:Введите имя и о...
Составьте программу, которая запрашивает имя (один из символов: 'а' — Алексей, 'с' — Сергей, 'м' — Михаил, 'к' — Константин) и отчество ('б' — Борисович или 'с' — Сергеевич) и выдаёт их полное название.
Протокол:
Введите имя и отчество: сс
Вас зовут Сергей Сергеевич
Гость
Ответ(ы) на вопрос:
ГостьКогда запустишь программу, не забудь переключиться на русский язык
var s:string;
begin
writeln ('Введите имя и отчество: ');
readln(s);
write('Вас зовут ');
case s[1] of
'а': write('Алексей ');
'с': write('Сергей ');
'м': write('Михаил ');
'к': write('Константин ');
end;
case s[2] of
'б': write('Борисович');
'с': write('Сергеевич');
end;
end.
Не нашли ответ?
Похожие вопросы