• составить программу которая кодирует введенное с клавиатуры слово заменяя буквы их номерами в алфавите увеличеными на 1

Ответы 1

  • var s:string; i:byte;beginwriteln('Введите слово:');readln(s);writeln;writeln('Их номера в алфавите:');for i:=1 to length(s) docase s[i] of  'А'..'Я' : write(ord(s[i])-1038+' '); 'а'..'я': write(ord(s[i])-1070+' ');end;readlnend.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years