[j] <> a [i] [length (a [i]) +1- j] then f: = true;
if f = False then begin
l: = l +1;
if l = 1 then Write ('Симетричні слова:');
Write (a [i], ' '); p> end;
end;
end;
Writeln;
if l = 0 then Writeln ('Симетричні слова відсутні');
Write ('Натисніть Enter ');
Readln;
end.
Завдання 2. Дано рядок символів. Перетворити цей рядок видаливши з неї кожні">>" І повторивши (вставивши ще раз) кожну пару символів "<<". Після перетворення отриманий рядок вивести на друк
Program Stroki;
Uses Crt;
Var s: string; p> i: integer;
begin
ClrScr;
Write ('Введіть рядок символів: ');
Readln (s);
for i: = 1 to length (s) do begin
if (S [i-1] = '>') and (s [i] = '>') then delete (s, i-1, 2);
if (S [i-1] = '<') and (s [i] = '<') then begin
insert ('<<', s, i-1); p> i: = i +2;
end;
end;
Writeln ('Змінена рядок: ', s);
Write ('Натисніть Enter ');
Readln;
end.
Завдання 3. Скласти програму, яка запитує ім'я людини і повторює його на екрані з Привітанням
Program as;
Uses crt;
Var K: string;
Begin clrscr;
Writeln ('Як вас звуть ');
Readln (k);
Writeln ('Привіт,' ', K'! '); p> End.
Завдання 4. Скласти програму, яка запитує назву футбольної команди і повторити його на екрані зі словом В«Це чемпіон!В»
Program as;
Uses crt;
Var k: string;
Begin clrscr;
Writeln ('Введіть назва футб. команди ');
Readln (k);
Writeln (k, ' ',' Чемпіон! '); p> End.
Завдання 5. Дано рядок символів s1, s2, ... sn, в якій зустрічаються цифри, прогалини, буква Е і знаки + і -. Відомо, що перший символ рядка є цифрою. З даної рядка виділити підрядок попередню першого пробілу. Потрібно: визначити чи є це підрядок числом, якщо так, то з'ясувати цілим або речовим, позитивним чи отрецательним
Program Stroki;
Uses Crt;
Var s1, s2: string;
i: Integer;
k: Real;
f: boolean;
begin
ClrScr;
Writeln ('Введіть рядок символів: ');
Readln (s1);
s2: ='';
f: = true;
for i: = 1 to length (s1) do begin
if s1 [i] = '' then f: = false;
if (S1 [i] <> '') and (f = true) then s2: = s2 + s1 [i];
end;
Writeln ('Виділена підрядок: ', s2);
Val (s2, k, i),
if i <> 0 then Writeln ('Виділена підрядок не містить числове значення')
else begin
f: = false;
for i: = 1 to length (s2) do
if s2 [i] = 'E' then begin
Write ('Кількість в підрядку дійсного типу, ');
f: = true;
end;
if f = false then Write ('Число у підрядку цілочисельного типу,');
if k <0 then Writeln ('негативне')
else Writeln ('позитивне')
end;
Write ('Для виходу натисніть Enter ');
Readln;
end.
Завдання 6. Дано назва футбольного клубу, визначити кол-во символів у ньому
Program as;
Uses crt;
Var k: string; M: integer;
Begin clrscr;
Writeln ('Введіть назва Ф.К ');
Readln (k);
M: = length (k);
Writeln (M);
End.
Завдання 7. Дано назва міста, визначити четно чи ні, кол-во символів у ньому
Program as;
Uses crt;
Var k: string; b: integer;
Begin clrscr;
A: = 'Aktobe';
B: = length (a);
If b mod 2 = 0 then write ('четно') else write ('непарній');
Readln;
End.
Завдання 8. Дано рядок, що містить текст. Записати її в зворотному порядку
program З8;
var s1, s2: String;
i: Integer;
begin
Write ('Введіть рядок =');
ReadLn (s1); s2: ='';
for i: = Length (s1) downto 1 do s2: = s2 + s1 [i]; WriteLn ('Зворотній рядок = ', s2);
ReadLn; end.
Завдання 9. Дано слово. Замінити В«оВ» на В«еВ»
Program as;
Uses crt;
Var a: string; e, I, b: integer;
Begin clrscr;
Writeln ('Dano clovo ');
Readln (a);
B: = length (a);
For i: = 1 to b do if copy (a, I, 1) = 'o' then begin
Delete (a, I, 1);
Insert ('e', a, i);
End;
Writeln (a);
End.
Зада...
