Var a,a1,a2,a3,a4,b:integer;
begin
write('a = ');
readln(a);
a1:=a div 1000;
a2:=a div 100 mod 10;
a3:=a mod 100 div 10;
a4:=a mod 10;
b:=a1*1000+a3*100+a2*10+a4;
writeln('b = ',b);
end.
Пример:
a = 4682
b = 4862
[32, 40, 48, 8]
Общий вес I = K * i (K - кол-во символов, i - вес одного символа/бит на символ)
K = 32 * 40 * 48 шт = 61440 шт
Вес текста I = 61440 * 8 бит = 491520.0 бит =
= 61440.0 байт = 60.0 Кбайт = 0.05859375 Mбайт
Все элементарно подставляем числа любые вместо x и y и выполняем простые действия например
5>4 больше
значит идём по левой стрелке
и в итоге
x=1
y=9
Pascal:
program z1;
var i, k, n, ch:integer;
begin
n:=0;
ch:=0;
for i:=1 to 15 do
begin
writeln('Input number:');
readln(k);
if(k mod 2=0) then
ch:=ch+1
else
n:=n+1;
end;
writeln('Нечетных было ', n);
writeln('Четных было ', ch);
end.