Формулы: Рост = (( длина ступни - 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>
А можно порусски пожалуйста написать
Const
N = 30;
var
a: array [1..N] of integer;
i, j, k: integer;
begin
for i := 1 to N do
readln(a[i]);
for i:=1 to N-1 do
if (a[i] mod 13=0) or (a[i+1] mod 13=0) then k:=k+1;
writeln('k=',k)
end.
Var
i, a, b, n, n2, j: longint;
s: string;
flag: boolean;
begin
Write('Введите через пробел границы диапазона: ');
Readln(a, b);
if b < a then begin n := a; a := b; b := n end;
if a < 11 then a := 11;
for i := a to b do
begin
Str(i, s);
n := Length(s); n2 := n div 2; flag := true; j := 1;
repeat
flag := (s[j] = s[n - j + 1]);
j := j + 1
until (not flag) or (j > n2);
if flag then Write(i, ' ')
end;
end.
Тестовое решение:
Введите через пробел границы диапазона: 800 1500
808 818 828 838 848 858 868 878 888 898 909 919 929 939 949 959 969 979 989 999 1001 1111 1221 1331 1441