Question

Помогите пожалуйста...Напечатать программу в паскале...Срочно...Завтра последний срок сдачи.. Дан массив строк без пробелов. Напечатать строки, вторая половина которых не содержит цифры.

Answer 1

Program Strok;
uses crt;
const number=['0','1','2','3','4','5','6','7','8','9'];
var A:array[1..10] of string;
i,j,k:integer;
s:string;
begin
{Ввод элементов массива}
for i:=1 to 10 do
begin
write('Введите ',i,' элемент массива: ');
readln(a[i])
end;
{проверка условий}
for i:=1 to 10 do {перебираем элементы массива}
begin
k:=0; {задаем триггер} 
s:=a[i];
for j:=length(s) div 2+1 to length(s) do
if s[j] in number then k:=1; {Pascal позволяет обращаться со строковыми переменными, как с массивами символов, проверяем строку со второй половины на "вшивость", и, если встретилась цифра, вызываем срабатывание тригера}
if k=0 then writeln(s)
end;
readln end.

Answer 2

Конечно, вот программа на языке Pascal, которая выводит строки, вторая половина которых не содержит цифры:

pascalCopy code
program FilterStrings;
uses SysUtils;

var
  strings: array of string;
  i: Integer;

function SecondHalfContainsNoDigits(inputString: string): Boolean;
var
  len, halfLen, i: Integer;
begin
  len := Length(inputString);
  halfLen := len div 2;
  
  for i := halfLen + 1 to len do
  begin
    if inputString[i] in ['0'..'9'] then
    begin
      SecondHalfContainsNoDigits := False;
      Exit;
    end;
  end;
  
  SecondHalfContainsNoDigits := True;
end;

begin
  // Заполните массив строк
  SetLength(strings, 5); // Замените 5 на нужное количество строк
  
  Writeln('Введите строки:');
  for i := 0 to High(strings) do
  begin
    Readln(strings[i]);
  end;
  
  Writeln('Строки, вторая половина которых не содержит цифры:');
  for i := 0 to High(strings) do
  begin
    if SecondHalfContainsNoDigits(strings[i]) then
      Writeln(strings[i]);
  end;
end.

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