//PascalABC.NET 3.1 сборка 1239
uses GraphABC;
const
n = 4;
begin
Window.CenterOnScreen;
var h := 100;
Window.SetSize(h * n, h * n);
Pen.Width := 3;
for var i := 1 to n - 1 do
begin
Pen.Color := clRandom;
Polyline((h * i, h * 0), (h * n, h * (n - i)), (h * (n - i), h * n), (h * 0, h * i), (h * i, h * 0));
end;
end.
Var
n, k, s: integer;
begin
s := 0;
k := 0;
repeat
write('Введите целое число = ');
readln(n);
if n > 0 then begin
k := k + 1;
s := s + n;
end
until n = 0;
writeln('Среднее арифметическое = ', s / k);
end.
10
первая единица показывает количество двоек, ноль показывает количество единиц.
Формулы: Рост = (( длина ступни - 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>