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.
Результат
Вводите: Информатика
икаорматИнф
Получается миллион цифоами это так:
1000000)))
Пожалуйста!!!:)
45 байт/с наверное ,не уверена!!!!!!!!!!!!!!!
Тут надо работать со степениями 2; от 0 до 10 попадают только 2^1=2 (символа), 2^2=4 (символа) и 2^3=8 (символов), из этих вариантов нам подходят 2^2 и 2^4 т.к. символы первого текста кодируются 2 битами, а второго 4 битами (если разделить 4 на 2, то получится 2 - как сказано в задаче), значит в первом тексте 3 символа, во втором 7
Var
A,B,C:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
if A>B then
Begin
if A>C then A:=A/3
else C:=C/3;
if B<C then B:=B*3
else C:=C*3
End
else
Begin
if B>C then B:=B/3
else C:=C/3;
if A<C then A:=A*3
else C:=C*3
End;
WriteLn;
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
End.