<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-100,100); a.Println;
var n:=a.Where(x->x.IsEven).Count;
Writeln('Четных- ',n,', нечетных- ',10-n)
end.
<u>Пример</u>
44 79 -39 29 -81 -50 33 -96 52 -47
Четных- 4, нечетных- 6
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
Writeln(Range(-200,150).Sum)
end.
<u><em>Результат выполнения программы:</em></u>
-8775
3 буквы сорян может я не так понял как ты имел в виду
Ответ:
635мб = 665845760 байт либо 6,35e+8
738гб = 773849088 кбайт
1024бит = 0.125кб
7.5гб = 7500мб
Объяснение:
1мб = 1000000 байт
1 гб = 1000000 кбайт
1кб = 8000бит
1гб = 1000мб
а дальше умножение
тот кто пишет начальное число конечно. напиши 19 и второй проиграл