Var
a: array[1..10, 1..10] of integer;
i, j, k: integer;
begin
k := 1;
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
if(j >= i) then begin
a[i, j] := k;
k += 1;
end
else a[i, j] := 0;
write(a[i, j]:3);
end;
k := 1;
writeln();
end;
<span>end.</span>
Var
a[1..10]: array of integer;
i:integer;
Begin
i:=1;
while i<=10 begin
read(a[i]);
i:=i+1;
end;
End.
Pascal:
y := (5*sqr(x) - 2 * x + 1) / (3 * x - 2);
m := sqrt((3 * sqr(a) + b) / (2 * a - b)) - (2 * a + b) / (3 * a * b);
y := sqr(sin(x / 3)) + sqr(cos(abs(x - y)));
(x + y) / 2 <> sqr(x + 3);
p_1 := sqrt(abs(sqr(x) + 2 * x + 1) / (3 * x * y) + 2 * x * y) - (abs(x + 2 * y)) / 2 * x * sqr(y);
X = 3
y = 4*x = 4*3 =12
y = y+6 = 12+6 = 18
y = y*x = 18*3 = 54
y = y+7 = 54+7 = 61
y = y*x = 61*3 = 183
y = y+8 = 183+8 = 191
#include <iostream>
<span>#include <fstream>
</span><span>#include <cstring>
</span><span>using namespace std;
</span>int main() <span>{
</span><span> ifstream fi;
</span><span> ofstream fo;
</span><span> fi.open("input.txt");
</span><span> string sd,sw,inp = "";
</span><span> int i,j;
</span><span> while(!fi.eof())
</span><span> {
</span><span> fi>>i>>j;
</span><span> if (((i%2==0) && (j%2==0)) || ((i%2==1) && (j%2==1)))
</span><span> sd=sd+char(i+48)+" "+char(j+48)+" ";
</span><span> else sw=sw+char(i+48)+" "+char(j+48)+" ";
</span><span> }
</span><span> fi.close();
</span><span> fo.open("output.txt");
</span><span> fo<<sw<<endl;
</span><span> fo<<sd<<endl;
</span><span> fo.close();
</span><span> return 0;
</span><span>}
</span><span>
</span>