<span>пропускная способность сист.шины=разрядность шины(бит)*частота шины(Гц)
</span>сам посчитаешь? xD
Var a,b,c,d:integer;
begin
readln(a);
c:=a div 100 mod 10;
d:=a div 10 mod 10;
b:=(a div 1000)*1000+d*100+c*10+(a mod 10);
writeln(b);
end.
---
короткий вариант:
var a,b:integer;
begin
readln(a);
b:=
(a div 1000)*1000+(a div 10 mod 10)*100+(a div 100 mod 10)*10+(a mod 10);
writeln(b);
end.
Slovo nachinaetsja i zakanchivaetsja na odnu i tu zhe bukvu. Eto slovo "кортик".
Esli bukva "и" imeet nomer 1 (to est' stoit na pervom meste), to progovarivaja alfavit dal'she, poluchaem bukvu "к", kotoraja budet tret'ej. I tak dalee so vsemi ostavshimisja bukvami - "р" na 9-m meste i "о" na 7-m meste