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.
Результат
Вводите: Информатика
икаорматИнф
K=16×32×40
i=16
I-?
I=K×i=16×32×40×16=327680 битов
Если таблицу делать в excel то написав в любой ячейке формулу =СУММ(T1*C1;T2*C2;T3*C3;T4*C4;T5*C5;T6*C6;T7*C7;T8*C8;T9*C9;T10*C10;)
=СУММ -это формула суммы в скобках пишем что именно нужно суммировать через точку с запятой, если написать T1*C1 то программа сначала посчитает вам произведение количества на цену, и в самую последнюю очередь выдаст вам общие затраты
1) 229 / 8 / 1024 / 1024 = 0,000027 МБ
2) 217 / 8 /1024 = 0,0264 КБ
2) 215 / 1024 = 0,209 МБ
Рекомендация- это предупреждение, дополнение к чему-то, а стандарт должны выполнять все