<em>Наверное так :З</em>
var x:real;
Begin
write('Введите число: '); read(x);
writeln('Целое число: '+floor(x));
var r:real := 1;
for var i := 1 to length(''+(x-floor(x)))-2 do
r := r * 10;
writeln('Дробное число: '+((x-floor(x))*r + (floor(x) * r))+' / '+r+'');
write('Округленно число: ', round(x));
End.
Заходишь в калькулятор, нажимаешь вид -> программист потом ставишь в систему счисления в зависимости от той которая тебе нужна, и пишешь число, нажимашь на другую систему и вуаля
Ответ:
Команда говорить и изменить размер
Program n1;
const maxm = 50;
maxn = 50;
var a:array[1..maxm,1..maxn] of integer;
min,max,i,j,n,m,x,maxi,mini:integer;
begin
write('Введите размеры матрицы (N*M): ');
readln(n,m);
writeln('Введите матрицу из ',n,' строк и ',m,' столбцов:');
min:=maxint; max:=-maxint-1;
for i:=1 to n do
for j:=1 to m do
begin
read(a[i,j]);
if a[i,j]>max then begin max:=a[i,j]; maxi:=i; end;
if a[i,j]<min then begin min:=a[i,j]; mini:=i; end;
end;
for j:=1 to m do
begin
x:=a[maxi,j]; a[maxi,j]:=a[mini,j]; a[mini,j]:=x;
end;
writeln('Матрица после преобразования:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
<span>
end. </span>
Берёт враг
он берёт 2 ты 1 =3
он 1 ты 2=3
вроде как-то так