#include <iostream>
using namespace std;
int main(){
int a, s=0;
cin>>a;
for(int i=0; i<5; ++i){
a/=10;
s+=a;
}
cout<<s<<endl;
}
Если требуется прибавить и изначальное число, просто прибавь его к итоговому s.
Рассмотрим третий байт IP-адреса узла и IP-адрес сети. Распишем в двоичном виде:
94 = 01011110
80 = 01010000
Первые два байта маски равны 255, так как байты узла и сети совпадают.
Для определения третьего байта маски сети найдем число первых бит, которые совпадают. Совпадают 0101, поэтому число первых бит равно 4, а сам третий байт маски равен 11110000, то есть 240.
===== PascalABC.NET =====
№1
begin
var n := ReadInteger;
var a := SeqRandomReal(n, -99, 99).Select(p -> Round(p,1)).ToArray;
a.Println;
var ic := n div 2;
if a[ic] > a[ic+1] then
a[ic] := 1
else if a[ic] = a[ic+1] then
a[ic] := 0
else
a[ic] := (a[n-1] + a[n-2])/2;
a.Println
end.
№2
begin
var (a, x) := ReadReal2('Введите а и х:');
var y: real;
if x < 0 then
y := 2 + x
else if x = 0 then
y := 3 * a - 1
else
y := a + x;
Print(y)
end.
Ответ 4.
<span>"Эндрю Танненбаум, знаменитый теоретик </span>операционных систем<span> и сторонник </span>микроядерного<span> подхода (Линус Торвальдс учился по его книге, но выбрал другой путь при создании Linux), недавно опубликовал статью на тему уязвимости современных </span>ОС, где сравнилмонолитное<span> ядро с..."</span>
<em>Microsoft QBasic 1.0</em>
DIM p AS DOUBLE
p = 1
FOR i = 5 TO 27
p = p * i ^ 2
NEXT i
PRINT p
<u>Результат</u>
2.05846315812941D+53
Точное значение (для контроля) вычисленное в программе компьютерной математики: 205846315812941087891721086815311205761024000000000000