Pascal, помогите.Запросите у пользователя символ и выведите на экран 5 символов, следующих за ним в таблице американских стандартных кодов обмена информацией. Проверьте, есть ли среди них знаки препинания.
Pascal, помогите.
Запросите у пользователя символ и выведите на экран 5
символов, следующих за ним в таблице американских стандартных кодов обмена
информацией. Проверьте, есть ли среди них знаки препинания.
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
var i,n,znak:integer;
a:char;
begin
clrscr;
Writeln('Введите символ:');
readln(a);
writeln;
znak:=0;
for i:=1 to 5 do
begin
n:=ord(a);
n:=n+i;
writeln(i,') ',chr(n));
if (n = 44) or (n = 45) or (n = 46) or (n = 58) or (n = 59) or (n = 33) or (n = 63) or (n = 34) then
znak:=znak+1;
end;
if znak = 0 then writeln('Нет знаков препинание.')
else writeln('В следующем 5 символе оказалась ',znak,' знак(ов) препинание');
readkey;
end.
Не нашли ответ?
Похожие вопросы