Var numb,sot,des,ed:integer;
begin
readln(numb);
sot:= numb div 100;
des:= numb mod 100;
des:=des div 10;
ed:= numb mod 10;
writeln('сотни=',sot,' десятки=',des,' единицы=',ed);
<span>end.</span>
Дано:
М (мощность алфавита) =64
К (количество символов) =100
х (вес одного символа)
Найти:
Р (размер всей информации)
Решение:
находим вес одного символа
М=2^х ( 2 в степени х)
64=2^х
х=6
находим общий объем информации
Р= к*х (количество умножить на вес одного)
Р=100*6=600
И, между прочим, ОТВЕТЬТЕ, пожалуйста
<span>Ответ: 600 бит</span>
В Юникоде = 512 символов;
В любой другой обычно 1024 символов.
1=>23
1) 1*3=3(1)
2)3*3=9(1)
3)9-1=8(2)
4)8*3=24(1)
5)24-1=23(2)
Ответ: 11212
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var k:=ReadInteger('Введите число-дубликат для удаления:');
var id:=a.FindIndex(t->t=k);
if id>-1 then a:=a[:id+1]+a[id+1:].Where(t->t<>k).ToArray;
a.Println
end.
<u>Пример</u>
n= 20
-23 -34 14 35 -16 -4 42 -13 -3 -49 24 49 26 -12 -16 16 47 33 -1 -16
Введите число-дубликат для удаления: -16
-23 -34 14 35 -16 -4 42 -13 -3 -49 24 49 26 -12 16 47 33 -1