#include<iostream>#include<cstdlib>using namespace std;
int main(){ int a, b; cin >> a >> b; int mas[5][5]; for(int i=0; i<5; i++) for(int j=0; j<5; j++) mas[i][j]=rand()%(b-a+1)+a;
}
В порядке возрастания:
бит
байт
килобайт
мегабайт
гигабайт
терабайт
петабайт
эксабайт
зеттабайт
<span>йоттабайт </span>
Program n5;
var p: real;
i,n: integer;
begin
p:=1;
readln(n);
for i:=1 to n do p:=p*(2*i)/(2*i+1);
writeln(p);
end.
Program n1;
var sum,k,a: integer;
begin
readln(a);
sum:=0;
k:=0;
while a<>0 do
begin
if (a>99) and (a<1000) then
begin
k:=k+1;
sum:=sum+a;
end;
readln(a);
end;
if k=0 then write('NO') else write(sum/k);
end.
Program n2;
var k,a: integer;
begin
readln(a);
k:=0;
while a<>0 do
begin
if (a>99) and (a<1000) and (a mod 4=0) then k:=k+1;
readln(a);
end;
write(k);
end.
<h2>Написано на языке PascalABC.NET</h2>
- const
- cValue = 2;
- var
- N, i: integer;
- resultNumber: real;
- begin
- Readln(N);
-
- for i := 1 to N do
- resultNumber := resultNumber + Power(cValue, i);
- Writeln(resultNumber);
- end.