Ребята умоляю вы одни у меня поддержка и опора У меня будет 2 за четверть и за год мне больше не к кому обратиться за Я сижу вся в слезах и не могу это решить выручите❤.​

решу только пункт а, т.к в б непонятно какие цифры куда переставлять

Объяснение:

Program cell;

var a, sum, pr:integer;

begin

   Read(a);

   sum:=(a div 100)+((a div 10) mod 10)+(a mod 10);

   pr:=(a div 100)*((a div 10) mod 10)*(a mod 10);

   Writeln('Сумма: ', sum,);

   Writeln('Произведение: ', pr);

   Readln

end.