Ответ:
Удаление всей информации с диска
Program Wybor;
uses Crt;
var y, a, b :real;
begin
a:=226.3;
b:=931.3;
if (a-b)<(10*ln(1/3.1415926) ) then y:= b*sqr(x)*x -a*ln(abs(2*x))+sqr(sin(x))
else y:=sqrt(b*sin(x)/cos(x))-exp(3*x);
WriteLn('y=', y:6:3);
ReadLn;
end.
Типа того, только проверь все внимательно, а то ТУРБО устроил мне пляску Святого Витта... Кстати, в Паскале нет тангенса, его заменяем sin(x)/cos(x) и я в программе "СЪЭКОНОМИЛ" описание переменной Х...
Формулы: Рост = (( длина ступни - 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=4; { любое число N от 1 до 100000}
var a:array [1..n] of integer;
b,min,max, s:integer;
proizvedenie:real;
beginwriteln('Введите n чисел');
for b:=1 to n do read (a[b]);
for b:=1 to n do
write(a[b],' ');
min:=a[1];
max:=0;
for b:=1 to n do
begin
if a[b]>max then max:=a[b];
if a[b]<min then min:=a[b];
end;
proizvedenie:=max-min;
writeln;
writeln('minimum ',min,' ','maximum ',max,' Proizvedenie= ',proizvedenie); readln;
<span>end.</span>
//Я немного не в себе, так что могу ошибаться. Если что - я не виновата.
1 - определение модели, как это может быть ложью?
3 - модель не может обладать всеми признаками оригинала, но может повторять важнейшие.
4 - смотри пункт 3
7 - можно создавать модели, отражающие разные признаки одного и того же объекта.