1 - Расскажите как можно ПОДРОБНО про типы данных: String - Integer - Real - Char - Boolean - 2 - Написать команду, с которой делается абзац (не writeln и не readln). 3 - Как удалить слово из строки 4 - Кто написал язык Паскаль? 5 - Как создать графический интерфейс
2 бита в двоичной системе дают 4 возможных комбинации. То есть вероятность извлечения белого шара 1/4, то (исходное целое делим на количество комбинаций) . Таким образом, получаем, что всего шаров: белых - одна часть, а чёрных - три. То есть белых шаров в 3 раза меньше: 18 / 3 = 6 (штук) . А всего шаров: 18 чёрных + 6 белых = 24
или
Пусть в корзине всего x шаров, тогда среди них x-18 белых.
Вероятность того, что из корзины будет вынут белый шар равна P=(x-18)/x Количество собственной информации равно I=log2(1/P)=log2(1/(x-18)/x))=log2(x/(x-18))
12) var A: array[1..7] of integer; k: integer; begin randomize; for k := 1 to 7 do A[k] := random(5); write("vvedite den' nedeli: "); readln(k); if (k < 1 or k > 7) writeln("error"); else if ( A[k] <> 0) then writeln("segodnya urokov: ", A[k]); else write("vyhodnoy"); end.
13) var k: real; begin write("vvedite chislo: "); readln(k); if (k > 0) then write("polozhitel'noe, "); else if (k < 0) then write("otricatel'noe, "); else write("nol', "); if (k mod 1 <> 0) then write("neceloe, "); else write("celoe, "); if (k mod 2 <> 0) then writeln("nechetnoe"); else writeln("chetnoe"); end.
String -
Integer -
Real -
Char -
Boolean -
2 - Написать команду, с которой делается абзац (не writeln и не readln).
3 - Как удалить слово из строки
4 - Кто написал язык Паскаль?
5 - Как создать графический интерфейс