Пример. Определить является ли данное слово перевертышем.
program z40;
uses crt;
var a,b,c : string;
i : longint;
begin
clrscr;
write('Введите слово: ');readln(a);
b:='';
for i:=1 to length(a) do b:=a[i]+b;{ переворачиваем слово }
if a=b then write('перевертыш')
else write('не перевертыш');
readln;
end.
2008-02-24 • Просмотров [ 17815 ]
begin
var a := readlnstring('Введите слово: ');
var b := '';
for var i := 1 to length(a) do b := a[i] + b;{ переворачиваем слово }
if a = b then write('перевертыш')
else write('не перевертыш');
end.
тем более переменной i будет достаточно расширения word