сервис вопросов и ответовПочему не работает программа по нахождению полиндрома через массив?? Не понимаю?? const
10-11 класс|
|
n=5;
var
a: array[1..n] of char;
i,c: integer;
begin
for i:=1 to n do
read (a[i]) ;
readln;
c:=0;
for i:=1 to n div 2 do
if a[i]<>a[n-1-i] then c:=1;
if c=0 then writeln('polindrom')
else writeln('no');
readln;
Ksushkasuina
15 авг. 2013 г., 17:33:50 (10 лет назад)
Pltv
15 авг. 2013 г., 19:13:25 (10 лет назад)
const
n = 5;
var
a: array[1..n] of char;
i: integer;
p: boolean;
begin
for i := 1 to n do
read(a[i]);
p := true;
for i := 1 to n div 2 do
p := p and (a[i] = a[n + 1 - i]);
writeln('Polindrom: ', p);
end.
Ninkin
15 авг. 2013 г., 20:02:04 (10 лет назад)
Можешь написать само задание?
Rusik2014rusik
15 авг. 2013 г., 22:20:40 (10 лет назад)
Написать программу для вычисления полиндрома. пример 12321-это полиндром
SefkatTepe
15 авг. 2013 г., 23:10:51 (10 лет назад)
а обьязательно через массив чаров?
Ответить
Другие вопросы из категории
написать программу для вычисления прибыли по формуле P=S1-S1,где S1-сумма,вырученная от продажи,S2-сумма затрат. Если прибыль меньше или равна нулю
вывести надпись "Производство нерентабельно".Значения S1,S2ввести с клавиатуры.
Читайте также
Информатики, помогите! Не работает интернет, и вот такой крестик.
что это значит, и почему он не работает?
как мне это исправить?
HELP!HELP!
Составить программу по нахождению минимального элемента массива и определить его местонахождение в массиве.
ПОМОГИТЕ ПОЖАЛУЙСТА!!! СРОЧНО!!!
Составить программу, по нахождению минимального элемента в двойном массиве.
Вы находитесь на странице вопроса "Почему не работает программа по нахождению полиндрома через массив?? Не понимаю?? const", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.