Не знаю паскаль, знаю C++ :)
{
int a, b;
//вводим значения в a и в b (в футах)
cin >> a >> b;
b = b*45;
if (a>b) cout << "В км больше";
else cout >> "В футах больше";
}
{
// тут важен дробный тип
dooble a, b;
//вводим значения в a и в b (м/c)
cin >> a >> b;
a = a:3.6;
if (a>b) cout << "В км/ч больше";
else cout >> "В м/с больше";
}
ну а дальше надо уже все по формулам смотреть.
{
doouble a,b;
//вводим значения в a и в b стороны
cin >> a >> b;
a=a*a*3.14;
b=b*b;
if(a>b) cout << "Площадь круга больше";
else cout << "Площадь квадрата больше";
}
4. не знаю как такое делать, что значит уместиться ли круг в квадрате? Уместится если радиус его меньше чем половина стороны.
5.
{
doouble a,b,c,d;
cin >> a >> b >>c >>d; // вводим объем и массу;
a = a/b;
c = c/d;
if(a>c) cout << "Тело 1 имеет плотность больше чем тело 2";
else cout << "тело 2 имеет большую плотность";
}
6. не знаю. Но тоже как-то через форумулы.
var
a:array[1..14] of integer;
n,k,i:integer;
begin
for i:=1 to 14 do
begin
a[i]:=Random(19);
write(a[i],' ');
end;
writeln;
for i:=1 to 14 do
if (a[i] mod 2=1) and (a[i]<10)
then write(a[i],' ');
readln
end.
2)
var
a:array[1..15] of integer;
n,k,i:integer;
begin
for i:=1 to 15 do
begin
a[i]:=Random(29)-14;;
write(a[i],' ');
end;
writeln;
for i:=10 to 15 do
if a[i]<5
then write(a[i],' ');
readln
end.