@IsoPanzer

Здраствуйте Уважаемые форумчане, скажите почему у меня при компилировании программы, не выводит например вводим слово и она должена вывысти неразличны, но выводит различны... или я не правильно написал саму программу...
{Выясните, все ли буквы слова Х, стоящие на нечетных местах, различны.}

program zada4a;
const n=['А','а','В','в','Д','д','Ё','е','З','з','Й','й','Л','л','Н', 'н','П','п','С','с','У','у','Х','х','Ч','ч','Щ','щ','Ы','ы', 'Э','э','Я','я'];
f=['Б','б','Г','г','Е','е','Ж','ж','И','и','К','к','М','м','О', 'о','Р','р','Т','т','Ф','ф','Ц','ц','Ш','ш','Ъ','ъ','ь','ь', 'Ю','ю'];
var x:string;
i:byte;
begin
writeln('Введите слово');
readln(x);
for i:=1 to length(x)-1 do
if(i mod 2<>0) and (x[i] in n) then
writeln ('Различны');
for i:=1 to length(x)-1 do
if(i mod 2<>0) and (x[i] in f) then
writeln ('Неразличны');
end.

Вернуться к обсуждению:
Выясните, все ли буквы слова Х, стоящие на нечетных местах, различны

0