ошибка в коде

[zumm]

предыдущий код тоже правильно работал =)

[Пепел Феникса]

zumm, а зачем лишняя морока то?
в паскале строки являются типом Lengthed String первый байт хранит её длину, потом до 255 байт символов.
Length(s) вернет этот самый байт.

кстати если ввести строку размером 255 байт то ваш вариант не сработает.

[zumm]

это у меня осталось со школы) когда забыл или незнаешь определённый оператор начитаешь страдать фигнёй и мутишь сложный завинченый код, который чудом на взаимо компенсирующих ошибках хоть как то рабит)

[Serge_Bliznykov]

предыдущий код тоже правильно работал =)

ну введите строчку, например, такую:
А работает ли программа?
и скажите, какую длину выдаст Ваш "сложный завинченый код, который чудом на взаимо компенсирующих ошибках хоть как то рабит"...

[zumm]

хех) ну не s:=s+' '; а s:=s+'&'; и проверку поменять на цикле)

нужно же адаптировать код под предлагаемые условия! можно перед s:=s+'&' прошерстить строчку на наличие это и символа и поменять на другой! xD

PS и кодить станет интереснее) паскаль это учебный язык, вот смотри сколько сразу можно выучить\повторить моим методом, а сколько твоим)

[Serge_Bliznykov]

s:=s+'&'; и проверку поменять на цикле)

хех, ну так я же потребую написать строчку
А !`.-+#$Rock&Roll/\{@}^&*()- такую строчку написать?
Опять будете код программы менять?!

И главное, зачем?!!?
Чем не устраивает s[0] ? Или length(s) ? Тем, что очень просто? Или потому, что всегда работает? Или Вам просто хочется свой неправильный код хоть как-то реабилитировать?

p.s. мне кажется, мы давно уже скатились в оффтоп... надо заканчивать этот бессмысленный спор...

[zumm]

Или Вам просто хочется свой неправильный код хоть как-то реабилитировать?

а я что спорю что он у меня косячный?)

А !`.-+#$Rock&Roll/\{@}^&*()-

та епт, можно и мозгом пораскинуть) например считывать по 3 символа! а заканчивать определенной комбинацией например '%№?'

p.s. мне кажется, мы давно уже скатились в оффтоп... надо заканчивать этот бессмысленный спор...

полностью согласен)

[Alter]

Полностью согласен)

[Pytnik]

В чём ошибка?

var a:integer;
begin
readln(a);
while a<>2 do begin writeln('a<>2');
readln;
end;
end.

Нужно ввести число, если это число не 2, то выводится a<>2 и всё повторяется заново, если это число 2, то программа завершается. Подскажите, в чём ошибка?

[Grag]

while a<>2 do
  begin 
    writeln('a<>2');
    readln;
  end;

Вот тут твоя ошибка!