Developing.ru

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

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

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

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

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

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

[quote="&quot"]
Объясняю, потом перед преподом умом блистать будете.
[/quote]

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

[b]Alex Burn[/b] ну вы и загнули!!
У человека вопросы возникли, в 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]

[quote="&quot"]
ммм..это типо че ?
[/quote]

это "типо" решение вашей задачи!

[b]Хыиуду[/b], вы просто монстр (в хорошем смысле). ;) ))
Решение просто поражает! В одну строку!!

С вашего позволения, чтобы [b]serenity[/b] было понятней.

[Syntax="Pascal"]
uses crt;
var s : string;
begin
clrscr;
s:='он - гений!';
writeln(pos('он',copy(s,1,pos('!',s)))+pos('но',copy(s,1,pos('!',s)))>0);
s:='это не так!';
writeln(pos('он',copy(s,1,pos('!',s)))+pos('но',copy(s,1,pos('!',s)))>0);
readkey;
end.

[/Syntax]

[quote="&quot"]writeln(pos('он',copy(s,1, pos('!',s)))+pos('но',copy(s,1, pos('!',s)))>0);[/quote]
ммм..это типо че ?

Люблю в простых задачах сложные конструкции!
writeln(pos('он',copy(s,1, pos('!',s)))+pos('но',copy(s,1, pos('!',s)))>0);

[b]Serge_Bliznykov[/b], а понятно :)

ну ошибка и что?