1. 415(10)=110011111(2) = 637 (8) =19F(16)
2. 10011(2) =19(10) 314(8)=204(10) A8(16)=168(10)
3. a) 23(16)=100011(2)
б) АС(16)=254(8)
в) 10111101(2)=275(8)
г) 101011101(2)=ВD(16)
д) 101010(8)=1000001000001000(2)
е)23(10)=17(16)
QBASIC
cls
INPUT " shIrIna ": a
INPUT "doing. ": b
c = a*b
PRINT "S": c
end
(12+18)+6=36 (учеников) 6А
Ответ: 36 учеников в 6А классе
Const
N = 13;
Var
A:array[1..N] of integer;
i:integer;
os:byte;
Begin
Randomize;
Write('Исходный массив:');
os:=0;
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
os:=(os+(A[i] mod 10)) mod 10;
End;
WriteLn;
if os mod 2 = 0 then WriteLn('Сумма - четное число')
else WriteLn('Сумма - нечётное число');
Write('Элементы, оканчивающиеся нулём:');
For i:= 1 to N do
if A[i] mod 10 = 0 then Write(' ',A[i])
End.
Var
i, n: integer;
a, s: real;
begin
readln(n);
a := 1;
s := a;
for i := 1 to n do
begin
a := a / 3;
s := s + a;
end;
writeln(s);
end.