1) program n_1;
var n: integer;
begin
readln (n);
if n div 100 = 0 then
writeln ('Число двузначное') else writeln ('Число не является двузначным')
<span>end.
</span>
VAR a:array[1..10] of integer;
i,s:integer;
BEGIN
s:=0;
for i:=1 to 10 do
begin
a[i]:=random(3);
if a[i]=1 then s:=s+1
end;
writeln ('Массив a: ');
for i:=1 to 10 do write (a[i],' ');
writeln;
writeln ('Элементов массива, равных одному: ',s)
END.
S = 30, если поочередно выполнять действия, а легче было бы прогу написать)
1) 10000101(двоичная), 205(Восьмеричная), 85(шестнадцатеричная). 2)504(Десятеричная) 1 * 2^9 + 1 * 2^8 + 1 * 2^7 + ... + 1 * 2^4 + 0 + 0 + 0 3)770(Восьмеричная), 1F8(Шестнадцатеричная) 4)400(Десятичная) 5)510(десятичная) 6)42F(Шестнадцатеричная) 7)162464(Восьмеричная)
Удачи)