Запишите алгоритм на языке тр алг.вычислите площпди и объема вещ х, s, v нач вывести "введите длину ребра куба" ввести х s: =6х(в квадрате) v: =х(в кубе) кон

var s,x,v: integer;

begin

s: =0; v: =0;

readln(x);

s: =6*sqr(x);

v: =x*x*x;

 

writeln(sqrt(s/6));

end.

в двоичной системе счисления ip адрес представляется в виде четырех чисел по 8 бит:

11011110 11000011 10100010 00110010

переведем каждое число в десятичную систему счисления:

11011110₁₀ = 1*2⁷+1*2⁶+0*2⁵+1*2⁴+1*2₃+1*2²+1*2¹+0*2⁰= 128+64+0+16+8+4+2+0 = 222₂

11000011₁₀ = 1*2⁷+1*2⁶+0*2⁵+0*2⁴+0*2³+0*2²+1*2¹+1*2⁰ = 128+64+0+0+0+0+2+1 = 195₂

10100010₁₀ = 1*2⁷+0*2⁶+1*2⁵+0*2⁴+0*2³+0*2²+1*2¹+0*2⁰ = 128+0+32+0+0+0+2+0 = 162₂

00110010₁₀ = 0*2⁷+0*2⁶+1*2⁵+1*2⁴+0*2³+0*2²+1*2¹+0*2⁰ = 0+0+32+16+0+0+2+0 = 50₂

получим результат: 222.195.162.50

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin   var n: =readinteger('сколько чисел обработать? ');   var s: =1;   loop n do begin       var k: =readinteger('введите число');       if k> 0 then s*=k       end;   writeln('произведение положительных чисел из ',n,' составляет ',s) end. пример сколько чисел обработать? 5 введите число 7 введите число -4 введите число 0 введите число 9 введите число -2 произведение положительных чисел из 5 составляет 63