Вал, лофа, фол, вода жало а больше не знаю
Открыть
Проверить на вирусы
Открыть с помощью
Копировать
Отправить
Удалить
Свойства
Ответ:
Объяснение:
1.
93₁₀=1011101₂
93:2=46 (1 остаток)
46:2=23 (0 остаток)
23:2=11 (1 остаток)
11:2=5 (1 остаток)
5:2=2 (1 остаток)
2:2=1 (0 остаток)
1
2)
109₁₀=155₈
109:8=13 (5 остаток)
13:8=1 (5 остаток)
1
3)
179₁₀=B3₁₆
179:16=11 (3 остаток)
11:16=0 (11 остаток)
4)
33₁₀=45₇
33:7=4 (5 остаток)
4:7=0 (4 остаток)
5)
113₈=75₁₀
1*8^2+1*8^1+3*8^0=75
6)
11001011₂=203₁₀
1*2^7+1*2^6+0*2^5+0*2^4+1*2^3+0*2^2+1*2^1+1*2^0=128+64+8+2+1=203
7)
1AE₁₆=430₁₀
1*16^2+10*16^1+14*16^0=256+160+14=430
8.
124₅=
1*5^2+2*5^1+4*5^0=25+10+4=39₁₀
<span>Задание №1
</span>
var r:integer;
begin
writeln('Введите радиус');
read(r);
writeln('Длина окружности = ',2*pi*r);
writeln('Площадь круга = ',pi*sqr(r));
<span>end.
</span>
Задание №2
var a,d,n:integer;
begin
writeln('Введите первый член, знаменатель, число членов');
read(a,d,n);
writeln('Cумма членов арифметической прогресси = ', 0.5*n*(2*a+(n-1)*d));
<span>end.
</span>
Задание №3
var m,n:integer;
begin
writeln('Введите m и n');
read(m,n);
if m=n then begin
m:=0;
n:=0;
end;
if (m>n) then n:=m
else if n>m then m:=n;
<span>end.
</span>
Задание №4
var a,b,c:integer;
<span>begin </span>
<span>writeln('Введите стороны a,b,c'); </span>
<span>read(a,b,c); </span>
<span>if (a=b) or (b=c) or (c=a) then writeln('Треугольник равнобедренный') </span>
<span>else writeln('Треугольник неравнобедренный'); </span>
<span>end.
</span>
Задание №5
var a,b,c:integer;
<span>begin </span>
<span>a:=0; </span>
<span>c:=0; </span>
<span>repeat </span>
<span>writeln('Введите число'); </span>
<span>read(b); </span>
<span>if b<0 then a:=a+1; </span>
<span>c:=c+1; </span>
<span>until c=3; </span>
<span>writeln('Количество отрицательных = ',a); </span>
<span>end.
</span>
Задание №6
var a,c:integer;
<span>b:real; </span>
<span>begin </span>
<span>writeln('Введите количество часов'); </span>
<span>read(a); </span>
<span>c:=a div 3; </span>
<span>b:=power(2, c); </span>
<span>writeln(b); </span>
<span>end.
</span>
Задание №7
const
<span>n=10; </span>
<span>var a:array [1..10] of integer; </span>
<span>i,k,s:integer; </span>
<span>begin </span>
<span>writeln('Введите k'); </span>
<span>read(k); </span>
<span>writeln('Введите элементы массива'); </span>
<span>for i:=1 to n do begin </span>
<span>read(a[i]); </span>
<span>if a[i] mod k =0 then s:=s+a[i]; </span>
<span>end; </span>
<span>writeln(s); </span>
<span>end.</span>