Var A,i,k:integer;
Begin
Write('Введите 10 целых чисел: ');
k:=0;
For i:= 1 to 10 do
Begin
Read(A);
if A>0 then k:=k+1
End;
Write('Количество положительных: ',k);
End.
Var n,k1,k2:integer;
begin
write('n = ');
readln(n);
k1:=0; k2:=0;
while n>0 do
begin
if n mod 2=0 then k1:=k1+1 else k2:=k2+1;
n:=n div 10;
end;
writeln('Четных цифр - ',k1,', нечетных - ',k2);
end.
Пример:
n = 14568
Четных цифр - 3, нечетных - 2
1. а) 666
2-чная: 1010011010
8-ричная: 1232
16-ричная: 29A
б) 305
2-чная: 100110001
8-ричная: 461
16-ричная: 131
в) 153,25
2-чная: 10011001
8-ричная: 231
16-ричная: 99
г) 162,25
2-чная: 10100010
8-ричная: 242
16-ричная: А2
д) 248,46
2-чная: 11111000
8-ричная: 370
16-ричная: F8
е) 306
2-чная: 100110010
8-ричная: 462
16-ричная: 132
ж) 467
2-чная: 111010011
8-ричная: 723
16-ричная:1D3
з) 218,5
2-чная: 11011010
8-ричная: 332
16-ричная: DA
и) 667,25
2-чная: 1010011011
8-ричная: 1233
16-ричная: 29B
к) 318,87
2-чная:100111110
8-ричная: 476
16-ричная: 13E
2. а) 827; б) 1031; в) 181,5; г) 262.65625; д) 441; е) 1046; ж) 849; з) 284; и) 881.421875;
к) 408.890625; л) 47567; м) 87404.
3. а) 11000110; б) 11000001011; в) 1100000101.111; г) 11000100101; д) 111011110; е) 10100101111.
4. а) 10001111011100; б) 100110001010; в) 1011100110100; г) 10001100000100; д) 110110000000;
е) 1000111100010.
var i,n,k: integer;
<span> a: array[0..9] of integer;
</span><span>begin
</span><span> write('число: '); readln(n);
</span><span> for i:=0 to 9 do a[i]:=0;
</span><span> while n>0 do
</span><span> begin
</span><span> k:=n mod 10;
</span><span> a[k]:=a[k]+1;
</span><span> n:=n div 10;
</span><span> end;
</span><span> for i:=0 to 9 do
</span><span> if a[i]>1 then writeln('повторяющаяся цифра: ',i);
</span><span>end.
</span>число: 1022315
<span>повторяющаяся цифра: 1
</span><span>повторяющаяся цифра: 2
</span><span>
</span>
Период = 7249 - четыре(4) цифры
144 : 4= 36
после запятой позиции цифр: (период начинается со 2-ой позиции)
1 2 3 4 5 ..... 142 143 144 145
3 7 2 4 9 .... 7 2 4 9
ответ 4