6)
Значение переменной а равно 6
7)
<span>Значение S
равно 73</span><span>
</span>
<span>n = int(input("Введить степень числа 6 : "))
f = pow(6,n)
a = f%<span>10
</span>print(f)
print("Последная цифра ",a)</span>
Var
x,y:real;
begin
Write('x='); Read(x);
if x>0 then y:=x-2
else
if x=0 then y:=5*x+10
else begin
Writeln('неверное значение x');
exit
end;
Writeln('y=',y)
end.
Есть специальная функция для округления с точностью до определённого разряда: RoundTo(). Она объявлена в модуле Math.
<span>var
Res, Num : Extended;
begin
//Округление до сотых долей:
Res := RoundTo(Num, -2);
//Округление до десятых долей:
Res := RoundTo(Num, -1);
//Округление до единиц:
Res := RoundTo(Num, 0);
//Округление до десятков:
Res := RoundTo(Num, 1);
//Округление до сотен:
Res := RoundTo(Num, 2)<span>;
</span></span>end;
Функция SimpleRoundTo()<span> сходна с </span>RoundTo()<span> – различие лишь в способе округления последнего знака. </span>SimpleRoundTo()<span> округляет последнее число в большую сторону, а RoundTo() использует так называемое банковское округление, приводя число к ближайшему четному</span>