А из какой степени нужно перевести в 10?
К примеру число aнужно округлить тогда a mod 10; создаем ячейку для округленного числа k:=a mod 10 и b:=a-k; Всё
Var a,b,c,d,res:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('‚Введите второе число');
readln(b);
writeln('Введите третье число');
readln(c);
writeln('‚Введите четвертое число');
readln(d);
res:=a;if b<res then res:=b;
if c<res then res:=c;
if a<res then res:=d;
writeln('—Ёб«® ',res,' б ¬®Ґ ¬ «ҐмЄ®Ґ');
readln;
end.
мог бы и побольше баллов поставить)
Function func1(a As Double) As Double
Dim i As Integer, b As Double
i = 1 - Sgn((Abs(a) - a) / 2)
b = Sqr(a * i)
a = a * 2 + i * (b - 2 * a)
func1 = a
End Function