Если надо найти палиндром,идущий за числом N. То вот программа:
Ответ:
7 так как нам нужно закодировать 76 элементов, а это больше чем 64 = 2^6, но меньше чем 2^7
<?
for($i=0;$i<20;$i++)
{
$number = rand(0,10000);
$a[$i] = $number;
}
$max = -1;
for($i=0;$i<20;$i++)
{
if ($a[$i] / 7 !=0 && $a[$i] >99 && $a[$i] <1000 && $a[$i] > $max)
$max = $a[$i];
}
echo "Все элементы:<br>";
for($i=0;$i<20;$i++)
{
echo "$a[$i]<br>";
}
if ($max!=-1)
{
echo "Нужный: $max";
}
else
{
echo "Не найден";
}
?>
1. Вот так для чего-то решают в школе...
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
var
i,j,s:integer;
begin
// задание 1
s:=0;
for i:=1 to 10 do s:=s+i*i;
Writeln(s);
// задание 2
j:=0;
for i:=1 to 50 do
if i mod 2=0 then j:=j+1;
Writeln(j)
end.
<u>Результат</u>
385
25
А вот так можно это решить по-нормальному за минуту.
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(1.To(10).Select(i->i*i).Sum); // задание 1
Writeln(Range(2,50,2).Count) // задание 2
end.
<u>Результат</u>
385
25
Компьютер,винчестер,флеш-карта,клавиатура,монитор