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>
Ответ:
примерно так только я не знаю принцип работы
program dz2;
var a,b,c,d,f,max:Integer;
begin
Writeln('введи число');
read(a);
b:= a div 1000;
c:= (a div 100) mod 10;
d:= (a div 10) mod 10;
f:= a mod 10;
max:=b;
if b<c then
max:=c;
if c<d then
max:=d;
if d<f then
max:=f;
Write(max);
end.
Ответ: Переводишь 57 в двоичную это 111001. Делаешь инверсию и получаешь 000110, добавляешь 1 (т.к знак - тоже имеет ячейку) и получаешь 111 - это 7 в 8-разрядной ячейке памяти
Формулы: Рост = (( длина ступни - 15)*100)/15,8
Длина шага = длина ступни * 3 Ширина ступни = Рост / 18
<span>Длина пятки = Рост / 27 Голова = Рост / 8 </span>
Плечо = (Рост - 73,6) / 2,97 Предплечье = (Рост - 80,4) / 3,65
Бедро = (Рост - 69,1) / 2,24 Голень = (Рост - 72,6) / 2,53
<span>Идеальная масса = ((Рост * 3) / 10 - 450 + Возраст) * 0,25 + 45</span>