Консультация № 188317
02.12.2015, 16:47
0.00 руб.
0 1 1
Здравствуйте! Прошу помощи в следующем вопросе:
Составить программу, определяющую, является ли введенное слово перевертышем.(BPascal)

Обсуждение

давно
Старший Модератор
31795
6196
03.12.2015, 21:27
общий
это ответ
Здравствуйте, Посетитель - 399097!

Смотрите код:
[code lang=pascal h=200]var
a:string;
b,c:integer;
begin
write('Enter string:');
readln(a);
b:=1;
c:=length(a);
while(b<c)and(a[b]=a[c])do{условие задание}
begin
inc(b);
dec(c);
end;
writeln('Result:',b>=c);{выводим результат}
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа