0.0814907253 Тб ≈ 85,449.2188 Мб ≈ 700,000,000 Бит
1 Тб = 1024 Гб
1 Гб = 1024 Мб
1 Мб = 1024 Кб
1 Кб = 1024 Б
1 Б = 8 Бит
Чтобы узнать размер в тех или иных величинах, нужно умножать/делить на 8 или 1024
Program chisla;
vari,n,s1,sn,max,kolvo: byte;s: array[1..255] of byte;
beginfor i:=1 to 255 do s[i]:=random(255);max:=s[1];kolvo:=0;writeln('vvedite kol-vo chisel');readln(n);sn:=s[n];for i:=1 to n do write(s[i]:4);writeln;for i:=1 to n do if s[i]>max then begin max:=s[i]; kolvo:=kolvo+1; end;
writeln('s1=',s[1], ' sn=',sn, ' max=', max,' kolvo max=',kolvo);end.
154: 2 вариант ответа
И где 153 задание?
К примеру, видеоигра — мультимедиа технология. В ней одновременно обеспечивается работа звука (голоса персонажей), анимации (объемная анимация персонажей), статистических изображений (меню игры), видеороликов и текстами в диалоговом режиме (диалоговое окно).
Program calculator;
var a, b, c: integer;
begin
writeln('Введи 2 числа: ');
readln(a,b);
c:=a+b;
writeln(c);
end.