Я б написала так, в цикл 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>
1. Экранирование внешних воздействий.
2. Вторичный источник питания
3. Основа для построения вычислительной системы
4. Часть, исполняющая код. Главная часть аппаратного обеспечения вычислительной машины.
5. Хранение выполняемого кода, входных и выходных данных. При выключении вычислительной машины освобождается.
6. Хранение и накопление данных.
7. Чтение и запись дисков
8. Преобразование графического образа в форму для вывода на монитор.
9. Обработка и вывод звука.
10. Охлаждение вычислительной машины.
25/2=12 (1) 12/2=6 (0) 6/2=3 (0)3/2=(1)(1)
25=11001
11001= 2^4+2^3+1=25
13/2=6 (1) 6/2=3 (0) 3/2=(1) (1)
13=1101
1101=2^3+2^2+1=13
Var
A, B, X : Integer;
begin
Writeln('Введите кол-во газет:'); // Просим пользователя ввести кол-во газет
Readln(B); // Считываем то, что он ввел
Writeln('Введите цену первых 75 газет:');<span>
</span> <span>Readln(A);
</span>
Writeln('Введите цену остальных газет:');<span>
</span> <span>Readln(X);
</span> if B <= 75 then // Условие: если газет 75 или меньше, то...
Writeln('Мальчик заработает ', B * A, 'рублей.')
else // Иначе...
Writeln('Мальчик заработает ', 75 * A + (B - 75) * X, 'рублей.');
end.
Var t:integer;var a,b,s:real;beginprintln('Введите количество тетрадей и обложек');readln(t);println('Введите цену тетрадей');readln(a);println('Введите цену обложек');readln(b);
s:=t*a+t*b;print(s);end.