Даны величины переменных a, b, c, d. требуется перенести значения переменных, следующим образом: в d сумму значений переменных с и в, в переменную а поместить значение из в, в в значение из с, в с значение из d решение в паскале

Var a, b, c, d: integer;       t_a, t_b, t_c, t_d: integer; {данные переменные будут использоваться для хранения изначальных значений a, b, c, d} begin   readln(a, b, c, d);   t_a : = a;   t_b : = b;   t_c : = c;   t_d : = d;   d : = t_c+t_b;   a : = t_b;   b : = t_c;   c : = t_d; end.

2) n = 80              ic=140 бит найти к   решение: n =2(в степени i)       80 = 2*i         i = 7 бит   ic = k* i => k =140 : 7 =20 символов 3) k = 100*20*30 n =80 найти: ic решение:   по той же формуле вычисляем размер 1 символа => i = 7 бит ic = k*i    ic =100*20*30*7 = 420 000 бит =52500 байт 4) ic = 4kбайта   k = 2048  найти: n решение: 4кбайта = 4 * 2(в 13 степени) бит     2048 = 2(в 11 степени)  . найдем вес 1 символа :   i= ic / k       i = 4 * 4 = 16(сокращаешь степени) n = 2*i дальше подставляешь под формулу)

Var a,b,c,d,a2: integer; begin    for a: =100 to 9999 do begin          d: =0;           a2: =a;     while (a2 < > 0) do begin       b: = a2 mod 10;       a2: = a2 div 10;       if a< 1000 then c: = (b*b*b)       else c: =(b*b*b*b);       d: = d+c;     end;         if (a = d) then writeln('число армстронга ==> ', a);       end; end.