Question

В строке символов произвольной длины выбрать только буквы и вывести их на экран паскаль

Answer 1

uses crt;

var s:string;i:integer;

begin

read(s);

for i := 1 to length(s) do begin

if (s[i] >= 'a') and (s[i] <= 'z') then write(s[i]);

if (s[i] >= 'A') and (s[i] <= 'Z') then write(s[i]);

end;

end.

Answer 2

Вот пример программы на языке Pascal, которая выбирает только буквы из строки символов и выводит их на экран:

pascalCopy code
program SelectLetters;

var
  inputString: string;
  letter: char;
  i: integer;

begin
  // Введите строку символов
  writeln('Введите строку символов:');
  readln(inputString);

  // Выводим только буквы
  writeln('Буквы в строке:');
  for i := 1 to length(inputString) do
  begin
    letter := inputString[i];
    if letter in ['A'..'Z', 'a'..'z'] then
      write(letter);
  end;

  readln;
end.

Программа сначала запрашивает у пользователя ввод строки символов. Затем она перебирает каждый символ строки и проверяет, является ли он буквой. Если символ является буквой, то он выводится на экран.

Пожалуйста, обратите внимание, что код Pascal может варьироваться в зависимости от используемой среды разработки или компилятора. Однако представленный выше код должен работать в большинстве сред Pascal.