Номер 4
program Other;
var
a,b: integer;
begin
a:=5;
b:=0;
if a = 1 then
{Next action...}
else
begin
b:=b+a;
a:=a-1;
end;
end.
по 5 заданию
Удовлетворяют 6 записей, кроме 4-й записи где Год посадки больше 1980 и и высота равна 3, а по условию должно быть меньше
Запись 5 хотя и год посадки больше 1980, но высота (3,2) больше 3, поэтому удовлетворяет условию.
Остальные записи удовлетворяют обоим условиям
Черти просто по клеточкам чтобы получился квадрат потом раздели их на 3 равные части
1)
var
a, b, i: longint;
begin
read(a, b);
for i := a to b do
writeln(i:10, ' бит = ', i / 8 / 1024:10:5, ' Кб');
end.
3)
var
a, b, s: real;
i:integer;
begin
read(a, b);
for i := 1 to 10 do
begin
s := s + b;
b := b * 1.03;
end;
writeln(s - 10 * a);
end.
задача1 чтобы подсчитать общее количество равновероятных событий (количество подъездов) воспользуемся формулой N=2^i вместо i подставим 2 и получим N=2^2, т.е. 4
ответ: в доме 4 подъезда
задача2 чтобы подсчитать общее количество равновероятных событий (количество ящиков) воспользуемся формулой N=2^i вместо i подставим 3 и получим N=2^3, т.е. 8
ответ: на склад поступило 8 ящиков
задача4 в тексте 61 символ. при использовании 256 -символьного алфавита, вес 1 символа составляет 8 бит
умножим 8 на 61 получим 488 бит
задача5
запишем условие: страниц=3, строк=60, символы=65, I=8775 байт, N=?
решение: выразим информационный объем текста в битах
I=8775*8=70200 бит
узнаем сколько всего символов в тексте
К=3*60*65=11700
теперь вычислим вес одного символа
i=I/K=70200/11700=6 бит
применим теперь формулу мощности алфавита:
N=2^i, N=2^6, N=64