===== PascalABC.NET =====
begin
var молоко := 1030;
var мороженое := 200;
var мед := 40;
var кофе := 100;
var ОбщийВес := молоко + мороженое + мед + кофе;
var ВесПорции := ReadInteger('Вес порции:');
Println('Получится порций:', Trunc(ОбщийВес / ВесПорции))
end.
Var m,n,k,i:integer;
begin
write('m, n: ');
readln(m,n);
if n<m then begin k:=m; m:=n; n:=k; end;
if m>=0
then writeln('В диапазоне [',m,',',n,'] нет отрицательных чисел')
else if n>0 then for i:=m to -1 do write(i,' ')
else for i:=m to n do write(i,' ');
end.
Пример:
m, n: -5 2
-5 -4 -3 -2 -1
1/16кб=64 байта =
64/2=32 байта 1 страница
32 байта = 512 бит
512/256=2
1 символ =2 бита
2^2=4 символа мощность алфавита
Задача 1
вероятность= количество событий. кол-во нужный событий
вероятность для карася 60/100=0,6
для пескаря 10/100=0,1
для окуня 30/100=0,3
Задача №3
дели 135 на 134 с остатком
Ответ 11
1)дано:
К=30*50*7=1050 символов
I=2625байт
Найти N
Решение : I=2625*8=21000бит
N =2^i; I=K*i ; i= I/K ; i= 21000/1050=20бит
N=2^20 = 1048576 символов