Program n1;
type z= array of integer;
var a:z;
d,n,i,j,x: integer;
begin
n:=0;
while true do
begin
readln(d);
if d=0 then break;
n:=n+1;
setlength(a,n);
a[n-1]:=d;
end;
for i:=0 to n-2 do
for j:=i+1 to n-1 do
if a[i]<a[j] then begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
writeln(a[1]);
end.
Шестиклассники Аня, Боря, Вася, Галя, Даша и Иван получили флешки на 1,2,4,8,16,32 Гб. Выясните, кто из ребчт получили флешку са
alexandro76 [1]
У Ивана самая большая(32Гб), а у Гали самая маленькая(1Гб).
101010(2)=42(10)=1120(3)=52(8)=2А(16)
10221(3)=81+18+6+1=106(10)=162(8)=1110010(2)=72(16)
127(8)=1010111(2)=87(10)=10020(3)=57(16)
9В=10011011(2)=233(8)=255(10)=100110(3)
морская вода не является информационным носителем