var
c, k, n: integer;
begin
writeln('Введите процент: ');
readln(n);
while k < 100 do
begin
k := k + n;
inc(c);
end;
writeln(c * 12, ' мес.');
<span>end.</span>
Исполнитель Чертежник и Исполнитель Робот
//PascalABC.NET 3.1 сборка 1239
begin
var a := ArrRandom(7, -50, 50);
a.Println;
Println(a.Count(x -> x mod 7 <> 0));
end.
Var a,b:integer;
begin
read(a);
b:= a mod 10;
if b=0 then writeln('Ноль') else
if b=1 then writeln('Один') else
if b=2 then writeln('Два') else
if b=3 then writeln('Три') else
if b=4 then writeln('Четыре') else
if b=5 then writeln('Пять') else
if b=6 then writeln('Шесть') else
if b=7 then writeln('Семь') else
if b=8 then writeln('Восемь') else
writeln('Девять');
<span>end.</span>
1)Недостатки: человеку более привычна десятичная система счисления. Запись двоичного числа намного длиннее десятичного.
Преимущества: Представление информации посредством только двух состояний надежно и помехоустойчиво.
2)10000000;100000000;1000000000;<span>10000000000
3)65;129;257;513
4)5;29;42;35;1467
5)10;111;10001;</span>1000100;100111011;1011111101;<span>11111111111
</span><span>6)11(2)+1(2)=1+2(10)+1(10)=4(10)=100(2)
111(2)+1(2)=1+2+4(10)+1(10)=8(10)=1000(2)
1111(2)+1(2)=1+2+4+8(10)+1(10)=16(10)=</span><span>10000(2)
</span>11111(2)+1(2)=1+2+4+8+16(10)+1(10)=32(10)=<span>100000(2)
7)111(2)*10(2)=(1+2+4)*2=14(10)=1110(2)
111(2)*11(2)=(1+2+4)*(1+2)=21(10)=10101(2)
1101(2)*101(2)=(1+4+8)*(1+4)=65(10)=1000001(2)
1101(2)*1000(2)=(1+4+8)=104(10)=</span><span>1101000(2)</span>
<span>
</span>