Developing.ru

Alex Burn ну вы и загнули!!
У человека вопросы возникли, в Copy, а вы модули впихнули!
[Syntax=Delphi]
var s : string;
begin
readln(s)
writeln(pos('он',copy(s,1,pos('!',s)))+pos('но',copy(s,1,pos('!',s)))>0);
readln;
end.
[/Syntax]

Из вопроса serenity лично мне не ясно, что именно ему(ей) не понятно

C_O_D_E, если у человека возникнут проблемы, то можно дать ему ссылочку на эту тему http://forum.developing.ru/showthread.php?t=13933 , где вы любезно рассказали о таких функциях, как clrscr и readkey, а также есть инфа о модуле crt.

Уж не вы ли писали:

&quot писал(а): Объясняю, потом перед преподом умом блистать будете.

А в этой теме, наоборот, пытаетесь упростить решение.
Странное непостоянство. ;-)

непостоянство = непредсказуемость. И жизнь становиться ярче!!!
Если человеку будет нало, сам найдет. А еще раз мне было лень одно и тоже писать.

Пожалуйста помогите паскаль ето:
Создаешь файл целых чисел путем ввода данных с клавиатуры.В процессе чтеныя файла четные числа записать в стек,а нечетные - в очередь. Распечатать содержимое файла,очереди и стека

nba_87, не плодите лишних сущностей без надобности. Вполне достаточно одной темы, не надо раскидывать свое сообщение по трем разным.