Составить программу для изъятия всех цифр в ряде - Turbo Pascal
Формулировка задачи:
Составит программу для изъятия всех цифр в ряде
Решение задачи: «Составить программу для изъятия всех цифр в ряде»
textual
Листинг программы
program string2;
var
s:string;
i:integer;
begin
readln(s);
for i:=length(s) downto 1 do
if s[i] in ['0'..'9'] then
delete(s,i,1);
writeln('New string: ',s);
readln;
end.
Объяснение кода листинга программы
Программа string2 на языке Turbo Pascal предназначена для удаления всех цифр из строки.
В начале программы объявляются две переменные: s типа string (строка) и i типа integer (целое число).
Затем с помощью функции readln считывается строка от пользователя.
Далее, в цикле for, переменная i итерируется от длины строки s до 1.
Если символ в строке соответствует цифре (от '0' до '9'), то с помощью функции delete этот символ удаляется из строки.
По завершении цикла, с помощью функции writeln выводится измененная строка и приглашение на ввод новой строки.
Программа заканчивается вызовом функции readln.