Помогите решить задачу в Паскаль. Очень надо...- Если введенный символ является гласной буквой английского языка, то заменить его восклицательным знаком, если согласной – то вопросительным знаком, если цифрой – то двоеточием, в остальных случаях заменить символ звездочкой.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
