(P*R)+(P*не R)+(Q*R)+(не P*Q*R)=R+(Q*R)+(не P*Q*R)=R+(не P*Q*R)=R+(не P*Q)
если неправильно, разрешаю прибить меня:D
1) 5.68гб
2) 5,760,000,000Кб
3) 9,605684
6) 2,54кб
<span>ftp://</span>ftp.roslin.com/2015/new/sort/novinka.avi
Var a, b, c, d, s, k: integer;
begin
write('Введите k: '); readln(k);
a := k div 1000; {тысячи}
b := (k mod 1000) div 100; {сотни}
c := (k mod 100) div 10; {десятки}
d := k mod 10; {единицы}
s := d * 1000 + c * 100 + b * 10 + a;
writeln('k = ', k, #10, 's = ', s);
end.