1) program fagasg; var a,b,c,d: integer; begin Writeln('Введите первое число'); readln(a); Writeln('Введите второе число'); readln(b); Writeln('Введите третье число'); readln(c); d:=0; If a>0 then d:=d+1; If b>0 then d:=d+1; If c>0 then d:=d+1; Writeln('Количество положительных чисел:',d); end. 2) program gsggdfd; var n,s,i: integer; begin writeln('Введите n'); readln(n); s:=0; For i:=1 to n do S:=s+i; Writeln('Сумма последовательности равна:',s); end. 3)Program afsdgf; var A: Array[1..100] of integer; i,h,s,l: integer; begin Writeln('ведите размер массива'); readln(h); s:=1; l:=1; For i:=1 to h do begin A[i]:=s+l; s:=s+2; writeln(A[i]); l:=A[i]; end; end.
1. Для перевода в восьмеричную систему счисления делим число нацело на 8 и записываем остатки. Деление производим, пока частное не станет меньше 8. Затем записываем частное и приписываем остатки в обратном порядке. 93 / 8 = 11, остаток 5 11 / 8 = 1, остаток 3 1 меньше 8, записываем результат перевода: 135 93(10)=135(8) 2. Для перевода из восьмеричной системы счисления в шестнадцатиричную воспользуемся тем фактом, что и восьмерка и шестнадцать - это третья и четвертая степени двойки соответственно. Следовательно, каждая цифра восьмеричного числа представляется тремя битами, а шестнадцатиричного - четырьмя. Поэтому записываем восьмеричное число в двоичной системе, а затем справа налево группируем биты по четыре и заменяем каждую полученную группу (тетраду) шестнадцатиричной цифрой. 135(8) = 001 011 101(2) = 0101 1101(2)=5D(16) ответ: 93(10)=135(8)=5D(16)
Нафига?
Объяснение:
ПриВет, я (возможно) люблЮ смоТРеТЬ хОлДикА