Вариант 1. в алгоритми, записанных ниже, используются
две переменные аub.
1. определите значение переменной а
b: = 4
а: = 14 - b = 2
а: = a + а 13
2. определите значение переменной б
а: = 5
б: = a + 2
а: = (b+a) 12
b: = 4 *а — б
3. определите значение переменной а
а: = 6
ь : =4
b = a /3+ь
а: =5*a-2*b
4. определите значение переменной б
a = -5
b = 50 + 7* а
ь : = b/3-а
5. определите значение переменной а
а: = 8
целочисленное
b: = a*2
деление - div
b: =b mod 5 + b
41 div 4=10
или 41\4=10
а: = b mod a + 8
6. определите значение переменной а
25 diy 0=2
а: = 27
или 25\9=2
b: = a/3
b: = a - b div 4
остаток от
а: = bdiy 4
. определите значение переменной а
деления - tod
41 mоd 4= 1
a = 32
b: = a mod 10
25 mоd 9 = 7
b: = a div 10 + b
4 mod 7 = 4
a : = a mod b​

Var b,c:boolean;
a:integer;
begin
readln(a);
writeln(not odd(a));
if a mod 10 = 7 then b:=true;
writeln(b);
writeln(not odd(a mod 10));
end.

var r,a:integer;
begin
read(r,a);
if a*a>pi*r*r then writeln('Square')
else if a*a<pi*r*r then writeln('Circle')
else writeln('Equal');
end.

var m1,m2,v1,v2:integer;
begin
read(m1,v1,m2,v2);
if m1/v1>m2/v2 then writeln('p1>p2')
else if m1/m2<m2/v2 then writeln('p1<p2')
else writeln('p1=p2');
end.

var a,b:real;
begin
read(a,b);
b*=0.45;
if a>b then writeln(b)
else if a<b then writeln(a)
else writeln('Equal');
end.

Не знаю паскаль, знаю 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. не знаю. Но тоже как-то через форумулы.