Program z1; Var a,b:integer; Begin write('Введите 1-ое число - '); readln(a); write('Введите 2-ое число - '); readln(b); if (a>0) then writeln('Является') else if (b>0) then writeln('Является') else writeln('Не является');<span>End.</span>
Const
<span>n=3; </span>
<span>var a:array[1..n, 1..n] of integer; </span>
<span>i,j:integer; </span>
<span>begin </span>
<span>writeln('Введите элементы матрицы'); </span>
<span>for i:=1 to n do </span>
<span>for j:=1 to n do begin </span>
<span>read(a[i,j]); </span>
<span>if i=j then a[i,j]:=0; </span>
<span>end; </span>
<span>writeln; </span>
<span>for i:=1 to n do begin </span>
<span>for j:=1 to n do write(a[i,j], ' '); </span>
<span>writeln; </span>
<span>end; </span>
<span>end.</span>
Program n1;
var i:integer;
a:array[1..12] of real;
s:real;
begin
s:=0;
for i:=1 to 12 do
begin
a[i]:=7-3*i;
s:=s+a[i];
end;
writeln(s);
end.<span>
</span>
0000111000101100001011000000111
00010111000101110000011100010111
10001101000001110001011100010101
00000111000101110000110110000111
00010111000100001000011100010111
000101101
Если на паскале, то так:
abs(sin(x))+abs(cos(y))-sqrt(2*sin(x)+cos(3*y))