program ttt;
var i,j,a,b,c:integer;
begin
readln(a);
readln(b);
readln(c);
if (a>b) then
if (a>c) then
begin
write(a);
if (b>c) then begin write(b);write(c) end; else begin write(c); write(b);end
end; else
if (b>c) then begin write (b); if(a>c)then begin write(a); write(c);end; else begin write(c); write(a);end; end;
else begin write(c); if(a>b) then begin write(a);write(b)end; else begin write(b); write(a); end;end;
end;
неоптимальный, но понятный алгоритм.
а в другом случае можноо оптимизировать.. как- подумай -;)
На каком языке нужна программа?
Пример на Paskal:
program zadacha;
var massiv: array [1..15] of integer; i:byte; massiv2:array [1..15] of real;
begin
randomize;
write('Isxodnij massiv: ');
for i:=1 to 15 do
begin
massiv:=random(41)-20;
write(massiv,' ');
end;
writeln;
writeln('Massiv posle preobrazovanij: ');
for i:=1 to 15 do
begin
if massiv=0 then massiv2:=massiv
else
if massiv mod 5 = 0 then massiv2:=massiv*2
else begin
massiv2:=massiv;
massiv2:=massiv2/2;
end;
write(massiv2:0:1,' ');
end;
readln;
end.
14 Гбайт
Объяснение:
120259084288 бит = 120259084288 / 8 = 15032385536 байт
15032385536 байт = 15032385536 / 1024 = 14680064 Кбайт
14680064 Кбайт = 14680064 / 1024 = 14336 Мбайт
14336 Мбайт = 14336 / 1024 = 14 Гбайт
1 байт = 8 бит
1 Кбайт = 1024 байт
1 Мбайт = 1024 Кбайт
1 Гбайт = 1024 Мбайт