Var n,m : Integer;
Begin
Write (' введите N: '); Readln (n);
Write (' введите M: '); Readln (m);
Writeln ((n+m)*(m-n+1) div 2);
end.
27 13 6 3 1 ДЕЛИМ 27 на 2 , в частном берем без целое число (=13)
1 1 0 1 1 <=== 27(10) =11011(2) пишем в обратном порядке
Делим 13 на 2, в частном берем целое без округления 6
Делим 6 на 2 (=3) и т.д.
11 5 2 1
1 1 0 1 11(10) = 1011(2)
2001 1000 500 250 125 64 32 16 8 4 2 1
1 0 0 0 1 0 0 0 0 0 0 1
2001(10) =100000010001(2)
Для перевода необходимо умножить разряд числа на соответствующую ему степень разряда.
1110102<span> = 2</span>5*1 + 24*1 + 23*1 + 22*0 + 21*1 + 20*0 = 32 + 16 + 8 + 0 + 2 + 0 = 58
Ответ: 1110102<span>=58</span>
180*47*50*8/8/1024 примерно равно 413 Кбайт.
Если каждый символ кодируется 8 битами информации.
1. Var s,i:integer;
Begin
S:=0;
For i:=1 to 1000 do
If (i mod 5<>0)and (i mod 7 <>0) Then s:=s+1;
Writeln(s);
Readln;
end.