var
a:real;
begin
readln (a);
a:=trunc (a); {trunc - это такая функция (уже готовая в самой программе), которая находит целую часть числа}
writeln ('Целая часть числа а равна ',a)
end.
если я правильно понял смысл
Var
p:array [1..4,1..5] of integer;
i,j,k:integer;
begin
for i:= 1 to 4 do
begin
for j:=1 to 5 do
begin
p[i,j]:=Random(-100,100);
write(p[i,j]:5);
end;
writeln;
end;
for i:= 1 to 4 do
begin
k:=0;
for j:=1 to 5 do
if p[i,j]>0 then k:=k+1;
writeln ('Количество положительных элементов в строке ',i,' равно: ', k);
end
end.
У черных 8 ходов если пешки могут ходить на 1 вперед- 3 бита
Но пешки в 1-й ход могут еще ходить на 2 вперед -+8=16 ходов 4 бита
Про белых черные узнают в зависимости от того какой пешкой походили
Иногда после хода пешки открывается путь для 1 фигуры, которую пешка
загораживала, а иногда открывается путь для 2-х фигур.
Это это либо скриншот либо обои картинка,,,