set @bn:=0;
set @gn:=0;
select boys, girls from
(select @bn := @bn + 1 as num, boys from (SELECT distinct boys FROM `names`) b1) b2
left join
(select @gn := @gn + 1 as num, girls from (SELECT distinct girls FROM `names`) g1) g2
using (num)#!/usr/bin/perl
use strict;
use warnings;
open(my $file, 'log.txt') or die "Could not open file $!";
my $first = <$file>;
if ($first =~ /^(\d+)(?=\s)/)
{
print "$1\n";
}
else { print "ошибка поиска\n";}var s, w : string;
i,j : integer;
function IsPalindrome(s : string) : boolean;
var i, max, len : integer;
begin
len := length(s);
Result := true;
for i := 1 to ceil(Length(s) / 2) do
begin
if s[i] <> s[len - i + 1] then
begin
Result := false;
break;
end;
end;
end;
begin
s := 'аннааннабобпотоп';
for i := 1 to length(s)-1 do
begin
for j := 2 to length(s) - i + 1 do
begin
w := copy(s,i,j);
if Length(w) mod 2 = 0 then
begin
write(w);
if IsPalindrome(w) then write(' - палиндром');
writeln('');
end;
end;
end;
end.foreach ($cn as &$val) {
$sabjects_save = "$val text, "; //
}