1,2,3,4,5,6,7
Всегда пожалуйста.
1. (1кг)___( ? )
2. (2кг)___( ? )
3. (1кг + 2кг)___( ? )
4. (4кг)___( ? )
5. (4кг + 1кг)___( ? )
6. (4кг + 2кг)___( ? )
7. (4кг + 2кг + 1кг)___( ? )
Ответ: на весах можно взвесить любой целый вес от 1 до 7.
Я б написала так, в цикл while добавим счётчик суммы и произведения, s и p соответственно (Первоначально, s := 0; p := 1). Считаем всё это, пока n > 0. Затем в конце просто выводим сумму и произведение)
program mimi;
var n, p, s:integer;
begin
read(n);
s := 0;
p := 1;
while n > 0 do begin
s := s + n mod 10;
p := p*(n mod 10);
n := n div 10;
end;
writeln(s);
writeln(p);
<span>end.</span>