Question

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

Answer 1

Ответ:

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

Объяснение:

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.