// PascalABC.NET 3.1, сборка 1211 от 31.03.2016
begin
var a:=ArrRandom(10,-50,50); a.Println;
Writeln('Отрицательных ',a.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
37 -20 2 -13 10 9 -25 11 8 -3
Отрицательных 4
Внимание! Если программа не работает, обновите версию PascalABC.NET !
begin
var (a,b):=readreal2('Введите стороны :');
var (c,d):=readreal2('Введите основания :');
var h:=readreal('Введите высоту :');
var S:=((c+d)/2)*h;
writeln('S=',S);
var P:=a+b+c+d;
writeln('P=',P);
end.
Привет, как настроение? Меня зовут Мария, мне 18 лет. Хочу пообщаться с парнем.
Если тебе это интересно, найди меня тут - onetimesex.com
Мой никнейм - MoonaMod
а) 7 Кбайт = 7168 байт = 57344 бит
б) 1,5 Кбайт = 1536 байт = 12288 бит
в) (тут будет каша из цифр после запятой - 0.030517578125) Кбайт = 31,25 байт = 250 бит
г) 1,5 Гбайт = 1536 Мбайт = 1572864 Кбайт = 1610612736 байт
'В озеро Байкал впадает 336 рек' - 30 символов, 30*8 = 240 бит = 15 байт
250 страниц * 30 строк * 50 символов * 8 бит = 3000000 бит = примерно 366 Кбайт