С++:
#include <iostream>
int main()
{
int x=-5;
for (int i=0; i<8; i++)
{
x=x+4;
std::cout << x << std::endl;
}
std::cout << "x = " << x << std::endl;
system ("pause");
return 0;
<span>}</span>
<span><span>program qwr;
uses crt;
var
f : real;
i : byte;
z,a : array [0..3] of real;
begin
for i:=1 to 3 do
begin
write('z[ ',i,']= ');
readln(z[i]);
end;
for i:=1 to 3 do
begin
write('a[ ',i,']= ');
readln(a[i]);
end;
writeln(' ______________________');
writeln(' Z[i] | A[i] | f ');
for i:=1 to 3 do
begin
f:=exp(ln(z[i]+a[i])*(3/2));
writeln(' ',z[i]:(3),' | ',a[i]:(3),' | ',f:(3):(2));
end;
writeln(' _______|_______|______');
end.</span></span>
32 Кбайт= 2^5*2^10=2^15
128 Мбайт= 2^7*2^10*2^10=2^27
512 Гбайт= 2^9*2^10*2^10*2^10=2^39
Var a: integer;
begin
a:=0;
for var i:=100 to 999 do
if (i mod 7=0) then
a:=a+1;
write(a);
end.
Const a=-1; b=2; h=0.3;
var x,s:real;
i,n:integer;
begin
x:=a-h;
n:=round((b-a)/h)+1;
for i:=1 to n do
begin
x:=x+h;
s:=sin(1/x)/cos(1/x)+2*cos(x/2);
writeln(x:5:1,' ',s:6:3);
end;
end.
Результат:
-1.0 0.198
-0.7 -5.105
-0.4 2.707
-0.1 1.349
0.2 -1.391
0.5 -0.247
0.8 4.852
1.1 2.989
1.4 2.397
1.7 1.987
2.0 1.627