Распечатать последние 4 символа введенной строки - Free Pascal
Формулировка задачи:
Распечатать последние 4 символа введенной строки.
Решение задачи: «Распечатать последние 4 символа введенной строки»
textual
Листинг программы
var s:string; begin write('Enter string:'); readln(s); if length(s)<4 then writeln('Entered string is too short...') else writeln('Last four symbols:',copy(s,length(s)-3,4)); end.
Объяснение кода листинга программы
- Объявляется переменная
s
типа строка - Выводится сообщение
Enter string:
и происходит чтение строки с помощью функции readln() в переменнуюs
- Проверяется длина строки с помощью функции length(). Если длина строки меньше 4, выводится сообщение
Entered string is too short...
- Если длина строки больше или равна 4, выводится сообщение
Last four symbols:
и происходит вывод последних 4 символов строки с помощью функции copy() и операции вывода в консоль writeln()
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д