Если ты рассчитываешь произведение нужно писать не X=X*d,а P=X*D
Var a: array [1..20] of integer; i, s: integer;
begin
randomize;
s := 0;
for i := 1 to 20 do
a[i] := random(40) - 10;
for i := 1 to 20 do
begin
write(a[i], ' ');
if (a[i] + 10) mod 2 = 1
then
s := s + 1;
end;
writeln();
writeln(s);
<span>end.</span>
function Hanoi(n: integer): uint64;
begin
if n = 1 then
begin
Result:=1;
exit();
end
else
begin
Result:=2 * Hanoi(n-1) + 1;
end;
end;
begin
writeln(hanoi(64));
end.
Наибольшая площадь 25. Потому что всего ромашек 28, нам нужно, что бы они были в одном квадратике. из 28 корень не извлекается, следовательно ищем число меньше 28, из которого он извлечется. это число 25! 5 строчек, 5 столбцов)
На один пиксель - log2 16777216 = 24 bit а это равно 3 байта. Дальше : 1024*768 = 786432 пиксель; 786432 * 3 = 2359296 байт, а это равно 2,25 Мбайт.