Это паскаль. Помогите пожалуйста
Когда вводишь а выходит согласные
program Prim1;
uses Crt ;
var cc:Char;
Begin
clrscr;
WriteLn('введите символов');
Readln(cc);
Case (cc) of
'А':WriteLn('гласные');
'А'..'Я':WriteLn('согласные');
Else WriteLn('не являются русской буквой');
end;
Readln;
end .
Он должен сначала проверить 1 строку(гласные) а потом вторую. Но он первую строку как будто пропускает. Если на второй строке написать например не А..Я, а Б то он выводит что А не являются русской буквой
Ваш код работает правильно, он проверяет первую строку и выводит согласные, если символ находится в диапазоне ‘А’…‘Я’. Если вы хотите проверить первую строку отдельно, вы можете добавить еще один блок case для нее:
program Prim1;
uses
Crt;
var
cc: Char;
begin
ClrScr;
WriteLn(' введите символы ');
ReadLn(cc);
case cc of
'А': WriteLn(' гласные ');
'А' .. 'Я': WriteLn(' согласные ');
else
WriteLn(' не являются русской буквой ');
end;
ReadLn;
end.
Этот код теперь проверяет первую строку отдельно и выводит “гласные”, если символ равен ‘А’. Если вы введете другую букву, он выведет “не являются русской буквой”.