Консультация № 193621
30.09.2018, 01:05
0.00 руб.
02.10.2018, 13:47
0 2 1
Здравствуйте! У меня возникли сложности с таким вопросом:

Составьте программу, позволяющую определить, будет ли введённая строка являться "перевёртышем" после удаления из неё всех пробелов.

Обсуждение

давно
Старший Модератор
31795
6196
30.09.2018, 17:53
общий
Адресаты:
Если программу нужно на РАВС, Я ВАС ОФИЦИАЛЬНО ПРЕДУПРЕДИЛ ДО ЭТОГО:
Цитата: Зенченко Константин Николаевич

svrvsvrv:
© Цитата: svrvsvrv
Pascal

На портале для этого есть специально:
© Цитата: РАЗДЕЛ • Pascal / Delphi / Lazarus
Создание программ на языках Pascal, Delphi и Lazarus.

Не смотря на то, что Вы изучаете Pascal на Информатике, в будущем задавайте свои вопросы, в тематических разделах.

Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Старший Модератор
31795
6196
02.10.2018, 11:23
общий
это ответ
Здравствуйте, svrvsvrv!

Смотрите приложение.
[code lang=pascal]var
a,b:string;
i,j:integer;
begin
write('Enter string:');
readln(a);
b:=' /.,?;:!';
while length(b)>0 do
begin
while pos(b[1],a)>0 do delete(a,pos(b[1],a),1);
delete(b,1,1);
end;
i:=1;j:=length(a);
while(i<j)and(a[i]=a[j])do
begin
inc(i);
dec(j);
end;
writeln('result:=',j<=i);
end.[/code]
Удачи!
5
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа