fork download 
  1. {
  2. 	Задача:
  3. 	- проверка слова на явление полиндрома
  4. 	Решение:
  5. 	- автор Дмитрий С. Кузнецов
  6. 	- цена $11211.99
  7. }
  8. program CheckOnReverse;
  9. const
  10. 	ne	= 'не ';
  11. var
  12. 	i		:integer;
  13. 	word	:string;
  14. 	lowered	:string;
  15. 	no		:string;
  16. 	len		:integer;
  17.  
  18. begin
  19.  
  20. 	{ Постер }
  21. 	writeln(' ':4, 'Проверка слова на явление полиндрома');
  22. 	writeln(' ':4, 'Введите слово ... ');
  23. 	write(' ':4, '> ');
  24. 	readln(word);
  25. 	lowered := lowercase(word);
  26.  
  27. 	{ Проверка }
  28. 	len := Length(lowered);
  29. 	no := '';
  30. 	for i := 1 to (len div 2) do
  31. 	begin
  32. 		if (lowered[i] <> lowered[len - i + 1]) then
  33. 		begin
  34. 			no := ne;
  35. 			break;
  36. 		end;
  37. 	end;
  38.  
  39. 	{ Вывод }
  40. 	writeln;
  41. 	writeln(' ':4, 'Введенное слово - ');
  42. 	writeln(' "':10,  word, '"');
  43. 	writeln(' ':4, no, 'является полинтромом.');
  44.  
  45. end.
  46.  
  47.  
Success #stdin #stdout 0.01s 5280KB
comments (?)
stdin 
Malayalam
stdout 
    Проверка слова на явление полиндрома
    Введите слово ... 
    > 
    Введенное слово - 
         "Malayalam"
    является полинтромом.
https://ideone.com/yfAWcj
language:
Pascal (fpc 3.0.4)
created:
10 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!