Перевести из 10Сс в 2Сс, 16Сс, 12Сс и обратно число 103010. 2. Перевести из 2Сс в 8Сс, 16Сс методом «триад» и «тетрад»(родственные системы счисления) и обратно число 1010111112. 3. Даны три числа, найдите среди них наименьшее и запишите его в 10Сс: 3517, AB12, 2078. 4. Сколько натуральных чисел удовлетворяет неравенству 2748 < x < BF16. В ответе укажите одно число – количество таких чисел.

1)
Var x: real;
Begin
writeln ('Введите число');
readln (x);
if x>0 then
writeln ('Число ', x, ' положительное')
else
if x<0 then
writeln ('Число ', x, ' отрицательное')
else
if x=0 then
writeln ('Число ', x, ' не является ни положительным, ни отрицательным');
End.

2.
Var x, y: real;
Begin
writeln ('Введите два числа');
readln (x,y);
if x>y then writeln (x)
else
if x<y then writeln (y)
else
if x=y then writeln ('Числа равны');
End.

3.
Var x, sum, pr: real;
i: integer;
Begin
sum:=0;
pr:=1;
For i:=1 to 5 do
begin
write ('Введите число: ');
readln (x);
sum:=sum+x;
pr:=pr*x;
end;
writeln ('Сумма чисел = ', sum);
writeln ('Произведение чисел = ', pr);
if sum>pr then writeln (sum)
else
if sum<pr then writeln (pr)
else
if sum=pr then writeln ('Сумма и произведение равны');
End.

1.
Const R=5;
Var L,S:real;
Begin
L:=2*Pi*R;
S:=Pi*sqr(R);
writeln ('Радиус окружности R = ',R, ' см');
writeln ('Длина окружности L = ',L:4:2, ' см');
writeln ('Площадь круга S = ',S:4:2, ' см кв.');
End.

2.
Const r1=20;
Var S1,S2,S,r:real;
Begin
writeln ('Введите внешний радиус');
readln (r);
S1:=Pi*sqr(r1);
S2:=Pi*sqr(r);
S:=S2-S1;
writeln ('Площадь кольца = ', S:4:2);
End.

3. 
Var tet, ob, col, kar, ck, sum: real;
Begin
writeln ('Введите цену 1 тетради');
readln (tet);
writeln ('Введите цену 1 обложки');
readln (ob);
writeln ('Введите количество комплектов');
readln (col);
writeln ('Введите цену 1 карандаша');
readln (kar);
writeln ('Введите количество карандашей');
readln (ck);
sum:=(tet+ob)*col+kar*ck;
writeln ('Стоимость покупки = ', sum);
End.