Var a,i,k:integer;
begin
readln(a);
for i:=2 to a-1 do
if (a mod i)=0 then k:=k+1;
if k=0 then writeln('Простое')
else writeln('Сложное');
<span>end.</span>
Var t:integer;
begin
write('Введите время в секундах, прошедшее с начала раб.дня'); readln(t);
if (t>28800) and (t<32400) then write('Рабочий день закончен около ', round((t-28800)/60),' минут назад');
if (t>32400) then write('Рабочий день закончен около ', round((t-28800)/3600),' часов <span>назад');
</span>if (t<28800) then write('До конца рабочего дня осталось ', round((28800-t)/3600),'ч.);
end.
Const b:array[1..12] of string=('A','a','E','e','I','i','O','o','U','u','Y','y');
var a:string;
i,j,k:integer;
begin
readln(a);
for i:=1 to length(a) do
for j:=1 to 12 do
if a[i]=b[j] then k+=1;
writeln(k/length(a):3:2);
<span>end.</span>
1) 217(10)=331(8)=11011001(2)=D9(16)=217(10)
переводим из 10-чной СС в 8-чную СС
217 : 8 = 27 ост 1
27 : 8 = 3 ост 3
3 : 8 = 0 ост 3
217(10)=331(8)
переводим из 8-чной СС в 2-чную СС
3 3 1
011 011 001
331(8)=11011001(2)
переводим из 2-чной СС в 16-чную СС
1101 1001
D 9
11011001(2)=D9(16)
переводим из 16-чной СС в 10-чную СС
D9(16)=13*16^1+9*16^0=13*16+9*1=208+9=217(10)
2) 3AF(16)=32233(4)=943(10)=1110101111(2)=3AF(16)
переводим из 16-чной СС в 4-чную СС
3 A F
0011 1010 1111 далее разобьем на группы по 2 знака:
00 11 10 10 11 11
0 3 2 2 3 3
3AF(16)=32233(4)
переводим из 4-чной СС в 10-чную СС
32233(4)=3*4^4+2*4^3+2*4^2+3*4^1+3*4^0=3*256+2*64+2*16+3*4+3*1=
=768+128+32+12+3=943(10)
переводим из 10-чной СС в 2-чную СС
943 : 2 = 471 ост 1
471 : 2 = 235 ост 1
235 : 2 = 117 ост 1
117 : 2 = 58 ост 1
58 : 2 = 29 ост 0
29 : 2 = 14 ост 1
14 : 2 = 7 ост 0
7 : 2 = 3 ост 1
3 : 2 = 1 ост 1
1 : 2 = 0 ост 1
943(10)=1110101111(2)
переводим из 2-чной СС в 16-чную СС
0011 1010 1111
3 A F
1110101111(2)=3AF(16)
2)
2532(8) + 1273(8)=4025(8)
1 1
2 5 3 2
+1 2 7 3
------------
4 0 2 5
3A23(16)+F534(16)=12F57(16)
3 A 2 3
+F 5 3 4
------------
1 2 F 5 7
10111(2)+289(10)=100111000(2)
289(10)=100100001(2)
1 1 1
1 0 0 1 0 0 0 0 1
+ 1 0 1 1 1
-------------------------
1 0 0 1 1 1 0 0 0
На 1 символ надо log(2)128=7 бит;
<span>на 600 символов 600*7 бит = 600*7 / 8 байт = 525 байт = 525 / 1024 Кбайт = 0,5126953125 Кбайт</span>