В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
inikulin00864
inikulin00864
27.12.2020 00:03 •  Информатика

Решить в паскаль. если введенный символ является гласной буквой языка, то заменить его восклицательным знаком, если согласной – то вопросительным знаком, если цифрой – то двоеточием, в остальных случаях заменить символ звездочкой.

Показать ответ
Ответ:
nbkmrf
nbkmrf
13.06.2020 11:28

Program Zamena;

Uses Crt;

var c:char;

begin

     clrscr; 

     write('Введите символ: ');

     readln(c);   

 

     case c of

         'A','a', 'E','e', 'I','i' 'O','o' 'U','u',' Y','y': writeln('!');

         'B','b',C,'c','D','d','F','f','G','g','H','h','J','j',K,'k','L','l','M','m', 'N','n' 'P','p','Q','q','R','r','S','s' ,'T','t','V','v','W','w' ,'X','x', 'Z','z':  writeln('?');

     '0'..'9': writeln(':');  

             else writeln('*');

 

     end;  

 

  readkey;

 end. 

 

 

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота