Var a,b,c,d,m:real;z:boolean;
Begin
read(a,b,c,d);
if (a<=b) and (b<=c) and (c<=d) then
begin
m:=max(max(a,b),max(c,d));
a:=m;
b:=m;
c:=m;
d:=m;
end
else if (a>b) and (b>c) and (c>d) then z:=true
else begin
a:=a*a;
b:=b*b;
c:=c*c;
d:=d*d;
end;
writeln(a,' ',b,' ',c,' ',d);
End.
1. 9379 из десятичной в двоичную:
10010010100011
2. 9379 из десятичной в восьмеричную:
22243
3. 9379 из десятичной в шестнадцатеричную:
24А3
Const n=10;
Var a,b:array[1..n] of integer;
i:integer;
Begin
Randomize;
For i:=1 to n do
begin
A[i]:=Random(20)-10;
Write(a[i],' ');
end;
Writeln;
Writeln('Отрицательные элементы массива: ');
For i:=1 to n do
Begin
If A[i]<0 then
Begin
b[i]:=a[i];
Write(b[i],' ');
end;
end;
<span>end.</span>
Фотку с решением не смог загрузить . Ответ : 6,8,10