Const x0=1; xk=2; h1=0.1; y0=2; yk=3; h2=0.2; var x,y,z:real; i,j:integer; begin x:=1-h1; for i:=1 to round((xk-x0)/h1)+1 do begin x:=x+h1; y:=2-h2; for j:=1 to round((yk-y0)/h2)+1 do begin y:=y+h2; z:=x*x+y+y; writeln(x:3:1,y:5:1,z:7:3); end; end; end.
В двоичной системе: 1243(10)=2^10+2^7+2^6+2^4+2^3+2^1+1 = 1024+128+64+16+8+2+1 = 1243(10) =10011011011(2) В восьмиричной системе: разбиваете двоичное представление на группы по 3 бита справа налево 011 = 3 011 = 3 011 = 3 10 = 2 Тогда в восьмиричной системе: 2333(8) = 2*8^3+3*8^2+3*8^1+3 = 1024+192+24+3=1243(10) В шестнадцатиричной системе: разбиваете двоичное представление на группы по 4 бита справа налево 1011 = B = 11(10) 1101 = D(16) = 13(10) 100 = 4 Тогда в шестнадцатиричной системе 4DB(16) = 4*16^2+13*16^1+11 =1024+208+11=1243(10)
// PascalABC.Net 3.0, сборка 1088 const n=30; var a:array[1..n] of integer; i,k:integer; begin Randomize; Writeln('*** Исходный массив ***'); k:=0; for i:=1 to n do begin a[i]:=Random(1001); Write(a[i],' '); if (a[i] mod 3 = 0) and (a[i] mod 10 = 1) then Inc(k) end; Writeln; Writeln('Количество найденных элементов равно ',k) end.
var x,y,z:real; i,j:integer;
begin
x:=1-h1;
for i:=1 to round((xk-x0)/h1)+1 do
begin
x:=x+h1;
y:=2-h2;
for j:=1 to round((yk-y0)/h2)+1 do
begin
y:=y+h2;
z:=x*x+y+y;
writeln(x:3:1,y:5:1,z:7:3);
end;
end;
end.
Результат:
1.0 2.0 5.000
1.0 2.2 5.400
1.0 2.4 5.800
1.0 2.6 6.200
1.0 2.8 6.600
1.0 3.0 7.000
1.1 2.0 5.210
...
2.0 2.6 9.200
2.0 2.8 9.600
2.0 3.0 10.000