Проверить, является ли слово перевертышем

@Milena ok · Регистрация: 08.12.2011

Author24 — интернет-сервис помощи студентам

Всем добрый вечеер!
Кто чем может, пожалуйста, помогите

1. Дано слово. Получить его часть, образованную второй, третьей
и четвертой буквами.

2. Дано предложение. В нем слова разделены одним или нескольками пробелами
(символ "-" в предложении отсутствует)
Определить количество слов в предложении.
Рассмотреть 2 случая:
а) начальные и конечные пробелы в предложении отсутствуют;
б) имеются;

3. Устроить имеющуюся в заданном слове ошибку:
а) дано слово глинянный;
б) дано слово граффика;

4. Дано слово. Проверить, является ли оно перевертышем.

Комментарий модератора

Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.

@КонецСвета · 16.12.2011, 18:36

Сообщение от Milena ok

4. Дано слово. Проверить, является ли оно перевертышем.

Pascal

uses crt;
var s,sp: string;
    i: integer;
begin
write('s=');
readln(s);
sp:='';
for i:=1 to length(s) do
    sp:=s[i]+sp;
if sp=s then writeln ('Палиндром')
        else writeln ('Не палиндром');
readkey
end.

@Milena ok · 28.12.2011, 18:55 **[ТС]**

Спасибо!

@WebMax 2.0 · 28.12.2011, 19:07

Сообщение от Milena ok

1. Дано слово. Получить его часть, образованную второй, третьей
и четвертой буквами.

Pascal

Uses crt;
 
var s,h:string;
 
begin
    clrscr;
    Write('Введите слово : ');readln(s);
    h:=Copy(s,2,3);
    Write('Часть слова: ',h);
    readln;
end.

@КонецСвета · 28.12.2011, 20:17

Сообщение от Milena ok

3. Устроить имеющуюся в заданном слове ошибку:
а) дано слово глинянный;
б) дано слово граффика;

вариант 1 - для любого слова с ошибочно удвоенной буквой

Pascal

uses crt;
var s: string;
    i: integer;
begin
writeln('Введите любое слово с ошибочно удвоенной буквой');
readln(s);
for i:=1 to length(s)-1 do
    if s[i]=s[i+1] then
       delete(s,i+1,1);
writeln(s);
readkey
end.

вариант 2 - для любой лишней буквы

Pascal

uses crt;
var s: string;
    n: integer;
begin
writeln('Введите любое слово слишней буквой');
readln(s);
writeln('Какую по счету букву удаляем?');
readln(n);
delete(s,n,1);
writeln(s);
readkey
end.

Проверить, является ли слово перевертышем

Решение

Решение

@Milena ok 2 / 1 / 1 Регистрация: 08.12.2011 Сообщений: 30
	28.12.2011, 18:55 [ТС]	3
	Спасибо! 0

	28.12.2011, 20:17

Опции темы