8 бит дают диапазон [0;255₁₀], поэтому 5₁₀, 255₁₀, 111111₂
===== PascalABC.NET =====
type
reals = file of real;
procedure CreateReals(fn: string; var f: reals);
begin
Rewrite(f, fn);
for var i := 1 to 101 do
Write(f, Random(-50.0, 50.0));
f.Close
end;
function GetAverage(f: reals): real;
begin
Result := f.Elements.Average;
end;
function CountElements(f: reals; m: real) :=
f.Elements.Where(p -> p < m).Count;
begin
var f: reals;
var fn := 'Reals.bin';
CreateReals(fn, f);
Reset(f, fn);
var avg := GetAverage(f);
avg.Println;
CountElements(f, avg).Println
end.
Закрась клетки между двумя линиями, робот!
//Dev-C++ 5.11
#include <iostream>
using namespace std;
int main(void)
{float a,b;
cin>>a>>b;
if(a==0 && b==0)
cout<<"No solve";
else
if (b==0)
cout<<"No solve";
else
if(a==0)
cout<<"(-infinity;+infinity)";
else
{if(b>0 && a>0) cout<<"(-infinity;"<<a/b<<")";
if(b<0 && a>0) cout<<"("<<a/b<<";+infinity)";
if(b>0 && a<0) cout<<"("<<a/b<<";+infinity)";
if(b<0 && a<0) cout<<"(-infinity;"<<a/b<<")";}
return 0;}
Пример ввода:
1
-7
Пример вывода:
(-0.142857;+infinity)
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
var m:=ReadInteger('M=');
var a:=MatrixRandom(m,m,1,9);
for var i:=0 to m-1 do begin
for var j:=0 to m-1 do Print(a[i,j]);
Writeln
end;
var si:=0;
for var i:=0 to m-1 do begin
var sj:=0;
for var j:=0 to m-1 do sj+=sqr(a[i,j]);
si+=sj
end;
Writeln('S=',sqrt(si))
end.
<u><em>Тестовое решение:</em></u>
M= 6
6 5 2 7 1 1
8 7 9 3 1 8
2 1 7 9 5 7
3 2 8 1 1 8
3 9 1 2 6 7
5 3 5 4 8 3
S=32.6190128606002