Question

Pascal.Задана последовательность символов, за которой следует точка (в саму последовательность точка не входит).Напечатать текст, удалив из него все цифры.

Answer 1

Var  i,n : longint;  c   : array [1..100] of char;
begin 
  readln(n);
  for i:=1 to n do readln(c[i]);
  for i:=1 to n do
    if (c[i]<>'1')  and
       (c[i]<>'2') and
       (c[i]<>'3') and
       (c[i]<>'4') and
       (c[i]<>'5') and
       (c[i]<>'6') and
       (c[i]<>'7') and
       (c[i]<>'8') and
       (c[i]<>'9') and
       (c[i]<>'0')
     then writeln(c[i]);
end.

Answer 2

Для решения данной задачи на языке Pascal можно использовать циклы и условные операторы. Вот пример кода, который позволит напечатать текст, удалив из него все цифры:

program RemoveDigits;
var
  inputText, outputText: string;
  i: integer;
begin
  // Ввод текста
  writeln('Введите текст:');
  readln(inputText);
  
  // Удаление цифр из текста
  outputText := '';
  for i := 1 to length(inputText) do
  begin
    if not (inputText[i] in ['0'..'9']) then
      outputText := outputText + inputText[i];
  end;
  
  // Вывод результата
  writeln('Текст без цифр:');
  writeln(outputText);
end.

После запуска программы, она попросит вас ввести текст. После ввода текста, программа удалит все цифры из него и выведет результат.

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