Const
n=5;
var
a:array[1..n,1..n]of integer;
i,j,k:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j]:3);
end;
writeln;
end;
j:=n;
for i:=1 to n do
begin
if a[i,j]<5 then k:=k+1;
j:=j-1;
end;
writeln('Ответ: ',k);
<span>end. </span>
Var a,b,c:real;
begin
read(a,b,c);//стороны прямоугольников
write(a*b*c/6);
end.
1) program znanija2;
var speed, A, X:integer;
time:real;
begin
readln(A);
readln(X);
speed:= A * 3;
time:= X / speed;
writeln(time);
end.
2)
program znanija3;
var P:integer;
tax, rest, wages, answer:real;
begin
read(P);
tax:=(P*70)/100;
rest:= P - tax;
wages:= (rest*70)/100;
answer:= wages / 8;
writeln(answer);
end.
Лично мой совет: читайте книги, боже мой :D
А так "если исключить ваш пример (или то как вы его истолковали), то" объектом может быть любой осознаваемый предмет или примитив, так-же за объект может выйти сам субъект, структура или организация.
объектами в природе могут выступать ручьи, камни, горы, поляны :D