1 задани это снимок
2 ( спасидо дяде)
Обра́тное число́ (обратное значение, обратная величина) — это число, на которое надо умножить данное число, чтобы получить единицу. Два таких числа называются взаимно обратными.
VAR
x:array[1..100] of real;
n,i,c:integer;
BEGIN
write('n=');
readln(n);
for i := 1 to n do begin
write('x[', i, ']=');
readln(x[ i ]);
end;
c:=0;
for i := 1 to n-1 do if x[ i ]*x[ i+1 ]=1 then c:=c+1;
writeln('c=',c);
readln;
END.
3 for i:=1 to n-1
for j:= i+1 do
if a<a[j]>; a:=a[j]; a[j]:=b end
4 не знаю
===== PascalABC.NET =====
begin
Writeln('Плотность равна ',
ReadReal('Задайте массу, кг:') /
ReadReal('Задайте объем, м^3:'):0:1, ' кг/м^3')
end.
Значения плотностей составят:
а) 8900 кг/м³
б) 7100 кг/м³
51=32+16+2+1 =2^5+2^4+2^1+2^0= 110011 (2cc)
(16 * 32 * 50) * 8 = 204800 бит = 25600 байт = 25 кБайт
действия в скобках определяют сколько всего символовов , так как у нас 16 страниц по 32 строки то всего строк 32 * 16 , а так как в каждой строке 50 символов то всего символов 32*16 * 50 , а дальше умножаем на объем одного символа , то есть 8 бит