Var
S,S2:string;
i:integer;
Begin
Write('Введите строку: ');
ReadLn(S);
LowerCase(S); // эту строчку убрать, если КАЗАК и КаЗАк - разные слова
For i:= 1 to Length(S) do
S2:=S[i]+S2;
if S = S2 then Write('Эта строка - перевёртыш')
else Write('Данная строка не является перевёртышем')
End.
Если меж словами один пробел, и строка не с пробела начинается:
Var
A,i,C:integer;
S:string;
Begin
Write('Введите стоимость одного слова: ');
ReadLn(A);
C:=0;
Write('Введите текст телеграммы: ');
ReadLn(S);
For i:= 1 to Length(S) do
if S[i] = ' ' then C:=C+A;
WriteLn('Стоимость телеграммы: ',C+A);
End.
Если слова состоят из цифр и русских букв, и разделены следующими символами: пробел, тире, скобки, запятая, точка с запятой, двоеточие, точка, восклицательный знак и вопросительный знак. При этом, знак минус считается знаком тире. Также считается, что предложение оканчивается разделительным символом.
Код PascalABC.NET 3.2:
Var
A,i,C:integer;
S:string;
Begin
Write('Введите стоимость одного слова: ');ReadLn(A);
C:=0;
Write('Введите текст телеграммы: ');ReadLn(S);
For i:= 1 to Length(S)-1 do
if S[i]in['а'..'я','А'..'Я','ё','Ё','0'..'9'] then
if S[i+1]in[' ','-','(',')',',',';',':','.','!','?'] then
C:=C+A;
Write(C);
End.
Пример работы программы:
Введите стоимость одного слова: 1
Введите текст телеграммы: Помогите пожалуйста!!!!! (Паскаль) 1) Дана строка. Определить явяляется ли она перевертышем. То есть например слово КАЗАК,она и наоборот читается КАЗАК 2) Определить стоимость телеграммы,если стоимомость одного слова вводится с клавиатуры.
Стоимость телеграммы: 32
Program Pr1;
uses crt;
var stroka,tmp:string;
i:integer;
Begin
clrscr;
readln(stroka);
for i:=1 to length(stroka) do if stroka[i]=' ' then tmp:=copy(stroka,1,i-1);
writeln(tmp);
end.
Конечно можно, 1 сторону+ 1 сторону+ 1сторону + 1 сторону
Вот мой вариант:
Кодирование в шестнадцатиричном коде:
** Я напишу в 16 - ом коде чтобы ответ не был слишком большим.
<span>Исходный текст: Не цветы а вянут - Уши
Кодирование: </span>0E2C2D0E2E1E140E2F1F0E2E1B0E2E1E0E2F1B0E2F2B140E2E19140E2E1B0E2F2F0E2E2D
0E2F1C0E2F1B1416140E2D1C0E2F210E2E21
<span>
Исходный текст: Не ладоши а ими хлопают - Уши
Кодирование:
</span>0E2C2D0E2E1E140E2E2B0E2E190E2E1D0E2E2E0E2F210E2E21140E2E19140E2E210E2E2C
0E2E21140E2F1E0E2E2B0E2E2E0E2E2F0E2E190E2F2E0E2F1B1416140E2D1C0E2F210E2E2
1<span>
Исходный </span>текст<span>: Не бельё а их развешивают - Уши
Кодирование:
</span>0E2C2D0E2E1E140E2E1A0E2E1E0E2E2B0E2F2C0E2B21140E2E19140E2E210E2F1E140E2F
190E2E190E2E200E2E1B0E2E1E0E2F210E2E210E2E1B0E2E190E2F2E0E2F1B1416140E2D1
<span>C0E2F210E2E21
</span><span>
Исходный </span>текст<span>: Доверчивые и любопытные - Люди
Кодирование:
</span>0E2C1D0E2E2E0E2E1B0E2E1E0E2F190E2F200E2E210E2E1B0E2F2B0E2E1E140E2E21140E
2E2B0E2F2E0E2E1A0E2E2E0E2E2F0E2F2B0E2F1B0E2E2D0E2F2B0E2E1E1416140E2C2B0E2
F2E0E2E1D0E2E21<span>
</span>Исходный текст: <span>А еще на них можно вешать лапшу - Уши
</span>Кодирование:
0E2C19140E2E1E0E2F220E2E1E140E2E2D0E2E19140E2E2D0E2E210E2F1E140E2E2C0E2E
2E0E2E1F0E2E2D0E2E2E140E2E1B0E2E1E0E2F210E2E190E2F1B0E2F2C140E2E2B0E2E190
E2E2F0E2F210E2F1C1416140E2D1C0E2F210E2E21
Исходный текст: Его проглатывают упорно, Не желая о чем-либо говорить<span> - Язык
</span>Кодирование:
0E2C1E0E2E1C0E2E2E140E2E2F0E2F190E2E2E0E2E1C0E2E2B0E2E190E2F1B0E2F2B0E2E
1B0E2E190E2F2E0E2F1B140E2F1C0E2E2F0E2E2E0E2F190E2E2D0E2E2E0E1B2C140E2C2D0
E2E1E140E2E1F0E2E1E0E2E2B0E2E190E2F2F140E2E2E140E2F200E2E1E0E2E2C160E2E2B
0E2E210E2E1A0E2E2E140E2E1C0E2E2E0E2E1B0E2E2E0E2F190E2E210E2F1B0E2F2C14161
40E2D2F0E2E200E2F2B0E2E2A
Исходный текст: <span>Он может быть хорошо подвешан - Язык
</span>Кодирование:
0E2C2E0E2E2D140E2E2C0E2E2E0E2E1F0E2E1E0E2F1B140E2E1A0E2F2B0E2F1B0E2F2C14
0E2F1E0E2E2E0E2F190E2E2E0E2F210E2E2E140E2E2F0E2E2E0E2E1D0E2E1B0E2E1E0E2F2
10E2E190E2E2D1416140E2D2F0E2E200E2F2B0E2E2A
Исходный текст: <span>За него тянут или дёргают - Язык
</span>Кодирование:
0E2C200E2E19140E2E2D0E2E1E0E2E1C0E2E2E140E2F1B0E2F2F0E2E2D0E2F1C0E2F1B14
0E2E210E2E2B0E2E21140E2E1D0E2B210E2F190E2E1C0E2E190E2F2E0E2F1B1416140E2D2
<span>F0E2E200E2F2B0E2E2A</span>
<span>
</span>Исходный текст: <span>Его можно держать за зубами - Язык
</span>Кодирование:
0E2C1E0E2E1C0E2E2E140E2E2C0E2E2E0E2E1F0E2E2D0E2E2E140E2E1D0E2E1E0E2F190E
2E1F0E2E190E2F1B0E2F2C140E2E200E2E19140E2E200E2F1C0E2E1A0E2E190E2E2C0E2E2
11416140E2D2F0E2E200E2F2B0E2E2A<span>
============================================</span>