0.384 милиграмма и 0.180 милиграмм
Шта??????????????????????
Первая задача:
24×32×64=49152
Умножаем на кол-во битов(8)
49152×8=393216бит
Переводим в КБ и получаем
393216бит=48КБ
ОТВЕТ:48 КБ
ВТОРАЯ ЗАДАЧА
30+30=60
60×10=600бит
ОТВЕТ:600бит
Третья задача
256/16=16
ОТВЕТ:в 16 раз
program krug;
var r:real;
begin
write('введите радиус: ');
readln(r);
writeln('С=',2*3.14*r);
writeln('S=',3.14*r*r);
readln;
end.
кажись так
Я б написала так, в цикл 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>