Сумма = 0;
X=26;
ПОКА (X (< либо =)88)
{
Сумма = Сумма + X;
X = X+2
}
Program gruz;
uses crt;
var x,y,z: integer;
begin
writeln( 'введіть масу кожного груза через пробіл і натисніть enter');
read (x,y);z:=(x+y);
writeln (z);
<span>end.</span>
1) 795 в двоичной = 1100011011
71 в двоичной = 1000111
1100011011 - 1000111 = 1011010100
1011010100 в десятичной = 724
2) 640 в двоичной = 1010000000
71 в двоичной = 1000111
1010000000 - 1000111 = 1000111001
1000111001 в десятичной = 569
Var
a:array[1..10] of integer;
i,d:integer;
begin
d:=1;
for i:=1 to 10 do begin
writeln(i ,' число массива = ');
read(a[i]);
if(a[i]<>0) then d:=d*a[i];
end;
writeln(' Произведение равно ', d);
end.