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.
Результат
Вводите: Информатика
икаорматИнф
Какой скажи рисунок надо сделать попробую помочь
Например так:
123 / 2 = 61 (1)
61 / 2 = 30 (1)
30 / 2 = 15 (0)
15 / 2 = 7 (1)
7 / 2 = 3 (1)
3 / 2 = 1 (1)
Сначала записывается последняя единица (целая часть от деления на два, в данном случае, целая часть от деления 3 на 2),
затем записываются остатки - в обратном порядке
123_10 = 1111011_2