Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Усовершенствованные алгоритмы сортировки https://www.cyberforum.ru/ pascalabc/ thread1003538.html
Помогите написать программу! Ввести массив А. В массив В перенести все элементы массива А, имеющие нечетный индекс, справа от которых расположены элементы с нечетным значением, а слева - с четным....
Ввести строку, состоящую из латинских букв. Заменить каждую букву строки на букву, следующую за ней по алфавиту Pascal ABC
Ввести строку, состоящую из латинских букв. Заменить каждую букву строки на букву, следующую за ней по алфавиту помогите пожалуйста заранее спасибо*
Ввести слово, в котором содержится сочетание АВ, причем не на последнем месте. Вывести символ, следующий за АВ Pascal ABC
Ввести слово, в котором содержится сочетание АВ, причем не на последнем месте. Вывести символ, следующий за АВ очень нужна ваша помощь
Pascal ABC Найти сумму ряда x2+x2/2!+ x2/3!+ x2/4!+ x2/5!+… нужна ваша помощь ребятки https://www.cyberforum.ru/ pascalabc/ thread1003514.html
Pascal ABC Последовательно вводятся числа, найти их сумму. Ввод остановить если сумма стала больше 100 https://www.cyberforum.ru/ pascalabc/ thread1003512.html
Последовательно вводятся числа, найти их сумму. Ввод остановить если сумма стала больше 100 помогите решить очееень нужно
Ввести число. Определить сумму цифр в первой половине числа . Пример, N=123456, результат 6 Pascal ABC
Ввести число. Определить сумму цифр в первой половине числа . Пример, N=123456, результат 6 пожалуйста помогите
Выполнить суммирование членов бесконечного ряда Pascal ABC
1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний член ряда по абсолютной величине не будет меньше абсолютной точности Δ=10^(-4)...10^(-10) или пока не будет...
Pascal ABC Вычислить сумму ряда Вычислить 3/2+4/3+5/4+…+10/9 очень нужна ваша помощь ребята https://www.cyberforum.ru/ pascalabc/ thread1003505.html
Pascal ABC Вычислить значение Y=SIN X+COS X на интервале от A до B с шагом H https://www.cyberforum.ru/ pascalabc/ thread1003504.html
Вычислить значение Y=SIN X+COS X на интервале от A до B с шагом H помогите решить пожалуйста*
Pascal ABC Переставить местами первую и последнюю цифры заданного числа С клавиатуры вводится длинное целое число, не менее 50 цифр.Переставить местами первую и последнюю цифры данного числа и вывести полученное число. https://www.cyberforum.ru/ pascalabc/ thread1003499.html
2 / 2 / 4
Регистрация: 10.11.2013
Сообщений: 140
0

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

10.11.2013, 16:59. Просмотров 1447. Ответов 2
Метки (Все метки)

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

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
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.11.2013, 16:59
Готовые ответы и решения:

Все ли гласные буквы слова Х, стоящие на нечетных местах, различны
Составьте программу, выясняющую, все ли гласные буквы слова Х, стоящие на нечетных местах, различны.

Выяснить, все ли буквы слова Х, стоящие на нечетных местах, различны
Задание 2 Выяснить, все ли буквы слова Х, стоящие на нечетных местах, различны. (помогите с...

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

Выяснить, все ли согласные буквы слова Х, стоящие на четных местах, различны
Помогите, пожалуйста, написать программу на c# с пояснениями, если не сложно

2
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.