Alex_Burn » 28 апр 2008, 19:57
" писал(а):
ммм..это типо че ?
это "типо" решение вашей задачи!
Хыиуду, вы просто монстр (в хорошем смысле).
))
Решение просто поражает! В одну строку!!
С вашего позволения, чтобы
serenity было понятней.
[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="""]
ммм..это типо че ?
[/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]