Const double& Quotient(const double& a, const double& b)
{
return a / b;
}
===== PascalABC.NET =====
begin
ReadSeqInteger('Введи 3 числа:', 3) // вводим 3 числа
.Where(p -> p < 0) // пропускаем через фыильтр отрицательные
.Count // находим количество прошедших фильтр
.Println // выводим его.
end.
const
n = 20;
var
a:array[1..n] of integer;
i, k:integer;
begin
randomize;
writeln('Исходный массив: ');
for i := 1 to n do
begin
a[i] := random(51);
write(a[i], ' ');
end;
writeln;
write('k = '); readln(k);
if (k > n) or (k < 1) then
begin
writeln('элемента с таким индексом нет');
readln;
Exit;
end;
for i := k to n - 1 do
a[i] := a[i + 1];
a[n] := 0;
writeln('Измененный массив:');
for i := 1 to n - 1 do
write(a[i], ' ');
readln;
writeln;
end.
1мб=1024кб
1кб=8б
Из этого:
(28•1024)•8=229376б
Ответ:229376б бит в 28 мб