<span>7 - ответ ТААУТАТ
8 - ответ 8</span>
War a, b, x:real
begin
write(a,b)
if (a>b) then x:=a*b
else x:=a-b
println(x)
end
А) 514=5*7^2+1*7^1+4*7^0=256
б) 0.017=0*8^0 + 0*8^-1 + 1*8^-2 + 7*8^-3=0.029296875
в) Немного не ясно что надо в сделать а вообще советую скачать конвртация чисел на андроид там все есть с решением
Var
s:string;
n:integer;
begin
Write('Вводите: '); Readln(s);
n:=Length(s);
s:=Copy(s,n-2,3)+Copy(s,4,n-6)+Copy(s,1,3);
Writeln(s)
end.
**************************************************
var
s:string;
c:char;
i,n:integer;
begin
Write('Вводите: '); Readln(s);
n:=Length(s);
for i:=1 to 3 do begin
c:=s[i]; s[i]:=s[n-3+i]; s[n-3+i]:=c
end;
Writeln(s)
end.
Результат
Вводите: Информатика
икаорматИнф