Полная версия: симметричная строка
Помогите задачу решить,пожалуйста. Читается ли введенное целое число,имеющее 2 и более знаков одинаково справа на лево и слева на право?
Подобная задача уже рассматривалась в этом разделе.
Вот на скорую руку сваял...
Код
Var St : String;
i : Byte;
Begin
Write('Число: '); Readln(St);
For i:=1 to (Length(St) div 2) do
If St[i]<>St[Length(St)-i+1] then
Begin
Writeln('Не соответствует требованиям.');
Halt(0);
End;
Writeln('Соответствует требованиям.');
End.
i : Byte;
Begin
Write('Число: '); Readln(St);
For i:=1 to (Length(St) div 2) do
If St[i]<>St[Length(St)-i+1] then
Begin
Writeln('Не соответствует требованиям.');
Halt(0);
End;
Writeln('Соответствует требованиям.');
End.
Спасибо большое, все работает Вот только выдержка нулевая,прочитать ничего не успеваю. Подскажите,плиз, что сделать :-)
в конце программы
поставить... перед
конечно
Цитата
readkey;
поставить... перед
Цитата
end.
конечно
Код
Uses CRT;
Var St : String;
i : Byte;
Begin
Write('Число: '); Readln(St);
For i:=1 to (Length(St) div 2) do
If St[i]<>St[Length(St)-i+1] then
Begin
Writeln('Не соответствует требованиям.');
Halt(0);
End;
Writeln('Соответствует требованиям.');
readkey;
End.
Var St : String;
i : Byte;
Begin
Write('Число: '); Readln(St);
For i:=1 to (Length(St) div 2) do
If St[i]<>St[Length(St)-i+1] then
Begin
Writeln('Не соответствует требованиям.');
Halt(0);
End;
Writeln('Соответствует требованиям.');
readkey;
End.
Вот так.
tigra, регистрируйся, котяра ;)
Или просто нажать Alt+F5 по окончанию работы...
Именно.
[offtop]
tigra, а вы заходили в инет из интернет кафе?
[/offtop]
[offtop]
tigra, а вы заходили в инет из интернет кафе?
[/offtop]
Сплошной offtop:
Нет, я из дома. Про то что до ENDа писать надо это конечно спасибо за замечание(
), но не так все запущено. Просто я это умею делать только через crt, а он у меня чего-то не поддерживается.
Нет, я из дома. Про то что до ENDа писать надо это конечно спасибо за замечание(
), но не так все запущено. Просто я это умею делать только через crt, а он у меня чего-то не поддерживается.
ДА ! это можно сделать как то так:
repeat
until (keypress)
но вот только орфография у меня неправильная -> ничего не получается <_<
repeat
until (keypress)
но вот только орфография у меня неправильная -> ничего не получается <_<
правильно
Код
repeat
until keypressed;
until keypressed;
Цитата
через crt, а он у меня чего-то не поддерживается.
Он у Вас (можно на "ты" перейти? ) не пропаченный.
Там возникает ошибка деления на 0.
Цитата
Нет, я из дома
Офигеть! Все данные говорят, что Ваш дом в США.
Ох уж эти IP
Тогда заменить Repeat-Until на Readln;
Цитата
Тогда заменить Repeat-Until на Readln;
ну ето на нажатие enter, а если юзверь будет нажимать "any key", то будет появляться набираемый текст, а это не кул
Ну вот теперь все нормал, спасибо!
да,конечно.
А у меня все зарегестрировано не через то место,через которое стоило бы...
Цитата
можно на "ты" перейти?
да,конечно.
Цитата
Все данные говорят, что Ваш дом в США.
А у меня все зарегестрировано не через то место,через которое стоило бы...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.