Не знаю паскаль, знаю 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. не знаю. Но тоже как-то через форумулы.
{функция проверки на палиндром} function palind(s:string):boolean; var i:integer; fl:boolean; begin fl:=true; for i:=1 to length(s) div 2 do if s[i]<>s[length(s)-i+1] then fl:=false; Result:=fl end;
{основная программа} begin writeln('Введите строку...'); readln(s); if palind(s) then writeln('Данная строка является палиндромом!') else writeln('Данная строка НЕ является палиндромом!') end.
Без функции: var s:string;
i:integer; palin:boolean; {основная программа} begin writeln('Введите строку...'); readln(s);
fl:=true; for i:=1 to length(s) div 2 do if s[i]<>s[length(s)-i+1] then fl:=false;
if palin then writeln('Данная строка является палиндромом!') else writeln('Данная строка НЕ является палиндромом!') end.