X:= 0 x=0 y=0
x:= x+1 x=1 y=0
y:= x x=1 y=1
<span>x:= 2*y+2*x x=4 y=1</span>
Yo no puedo escribir en ruso.
количество кружечков
в восьмерке например 2 кружечка
Program perebor;
const n=100;
var a:array[1..n] of integer;
i,j,k,l: integer;
begin
<span>writeln('Ввести массив из ',n,' целых чисел');
</span>for i:=1 to n do read(a[i]);
for i:=1 to n do
for j:=i+1 to n do
for k:=j+1 to n do
for l:=k+1 to n do
if a[i]+a[j]+a[k]+a{l}=0
then writeln(a[i],' ',a[j],' ',a[k],',a[l] );
end.
371-563 8
371-173 16
A3E16-2622 10
1.237 10 - 1,00111100101011 2
2.472 10 - 10,01111000110101 2