Program chik;
var c:array[1..1000,1..1000]of longint;
n,m,i,j,p:longint;
begin
read(n,m);
for i:=1 to n do
beginf
or j:=1 to m do
begin
read(c[i,j]);
end;
end;
for j:=1 to m do
begin
p:=c[3,j];
c[3,j]:=c[5,j];
c[5,j]:=p;
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
write(c[i,j]:3,' ');
end;
writeln;
end;
end.<span>
</span>
<span>Перевод целых десятичных чисел в любую другую системы счисления осуществляется делением числа на основание новой системы счисления (в нашем случае это 2) до тех пор, пока в остатке не останется число меньшее основания новой системы счисления. Новое число записывается в виде остатков деления, начиная с последнего.</span>
Можно через макрос VBA Excel
Sub
zapolnut()
For i = 1
To 100
Cells(i, 1)
= Rnd()
Cells(i, 2)
= 2 * Cells(i, 1)
Next i
End Sub
var
y,x:real;
begin
writeln('Введите значение x: ');
readln(x);
y:=sqr(5)+3*x-4;
writeln('y = ',y);
end.