Var x,y,z:integer;
begin
write('Введите x, y, z: ');
readln(x,y,z);
if (x mod 4=0) and (y mod 4=0) and (z mod 4=0) then
begin
x:=x*2;
y:=y*2;
z:=z*2
end
else
begin
x:=-x;
y:=-y;
z:=-z
end;
writeln(x,' ',y,' ',z)
<span>end.</span>
Var x:integer;
begin
readln(x);
for var i:=2 to x do
if (x mod i)=0 then begin
writeln('delitel: ',i);
exit;
end;
<span>end.</span>
11001110 = 1*2^7+1*2^6+0*2^5+0*2^4+1*2^3+1*2^2+1*2^1+0*2^0 = 128+64+0+0+8+4+2+0 = 206
<h3>PascalABC.NET 3.4.2, сборка 1827 от 08.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
a := a[::2].Sorted.Interleave(a[1::2]).ToArray;
a.Println
end.
Программа это поочередность запланированых действий а данные это основа для совершения этих действий