<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (H, W, D) := ReadInteger3;
Println((H div D) * (W div D))
end.
<h2>40 80 40</h2><h2>2 </h2>
11 + 1 = 100 - двоичная система счисления
22 + 1 = 100 - троичная система счисления
44 + 3 = 102 - система счисления с основанием 5
44 + 3 = 51 - система счисления с основанием 6
44 + 3 = 50 - система счисления с основанием 7
44 + 3 = 47 - системы счисления с основаниями 8, 9, 10, ...
Var m:array[1..9,1..9] of integer;
s,j,i:integer;
begin
randomize;
s:=0;
For i:=1 to 9 do
For j:=1 to 9 do
m[i,j]:=random(100)+1;
For i:=1 to 9 do
For j:=1 to 9 do
s:=s+m[i,j];
writeln('Сумма элементов двумерного массива размерностью 9*9 = ',s);
end.
1) 18.10.1997 = 10010.1010.11111001101
2) 31.08.1997 = 11111.1000.<span>11111001101</span>
Например Цветы розовые и оранжевые они пересекаются в точке круги не выделяющие резинку надо обвести красным или синим цветом остаться множество это надо ли вести кружочком или