Помогите пожалуйста...Напечатать программу в паскале...Срочно...Завтра последний срок сдачи..
Дан массив строк без пробелов. Напечатать строки, вторая половина которых не содержит цифры.
Дан массив строк без пробелов. Напечатать строки, вторая половина которых не содержит цифры.
More Questions From This User See All
Answers & Comments
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.