Предмет: Информатика,
автор: Dolgoryki
Почему не работает программа по нахождению полиндрома через массив?? Не понимаю??
const
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;
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Алгебра,
автор: sergeev7592
Предмет: Математика,
автор: Аноним
Предмет: Физика,
автор: losawa
Предмет: География,
автор: лоооооооооооооол
Предмет: Геометрия,
автор: МаксимМосковский