Var radius, visota, plotnost: integer;
ploshad, obiem, massa: real;
begin
write('Введите радиус = ');
readln(radius);
write('Введите высоту = ');
readln(visota);
write('Введите плотность = ');
readln(plotnost);
ploshad := 3.14 * radius * radius;
obiem := ploshad * visota;
massa := obiem * plotnost;
writeln('Масса = ', massa);
writeln('Объем = ', obiem);
writeln('Площадь = ', ploshad);
end.
Var
m: array [1 .. 16] of integer;
i,countMin: integer;
begin
for i := 1 to 16 do
begin
randomize;
m[i] := random(100);
if(m[i] <10) then
countMin:=countMin+1;
end;
writeln('Исходный массив');
for i := 1 to 16 do
writeln('m[', i, ']=', m[i], ' ');
writeln("Количество элементов <10",countMin);
readln;
end.
Компьютер является системой, т. к. он состоит из устройств связанных между собой. Без перемены окончаний тут <u>никак не получится.</u>
211 в шестнадцатеричной системе счисления D3
211 в двоичной системе счисления 11010011
211 в восьмеричной системе счисления3 23
2^(3+10+10+4)=2^27 бит
3 - это степень бит в байте,
10 - степень КБ в МБ
10 - степень Б в КБ
4 - степень 16
(все в двоичной форме)