// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
function SoD(n:int64):integer;
begin
Result:=0;
while n>0 do begin
Result+=n mod 10;
n:=n div 10
end
end;
begin
var a:=ReadArrInteger('Введите три натуральных числа:',3);
Write('Суммы цифр чисел: '); a.Select(x->SoD(x)).Println;
Writeln('Общая сумма цифр всех чисел: ',a.Select(x->SoD(x)).Sum)
end.
<u><em>Тестовое решение:</em></u>
Введите три натуральных числа: 56325 23131 784545223
Суммы цифр чисел: 21 10 40
Общая сумма цифр всех чисел: 71
Написано на Pascal
var a:real;i,k:integer;
begin
writeln('Введите 3 числа');
for i:=1 to 3 do
begin
read(a);
if (a>=2.5) and (a<=5.2) then begin
writeln('Число ',a,' входит в интервал');
k:=k+1;
end;
end;
if k=0 then writeln('Таких чисел нет');
end.<span>
</span>
<h2>Ответ:</h2>
Если сложить числа от 1 до 3, то их сумма будет равна 6
<h2>Объяснение:</h2>
1+2+3 = 6
(20*1024*8)/1024=160
(20*1024*8)/2048=80
160-80=80
<span>Ответ: 80</span>
Определяем информационный объем I текстового документа
I1=16 бит * 20*30*40=48000 байт
Определяем информ. объем перекодированного текста
I2=8 бит *х*(30*2)*(40-15)=1500х байт, где х количество оставшихся страниц
Составляем уравнение
48000 - 15000х = 31500?
откуда х=11 страниц
тогда 20 - х =20-11=9 страниц было удалено
Ответ 9 страниц
