Program gt;
var x1,x2,y1,y2:real;
begin
readln(x1,y1,x2,y2);
if((x1*x1+y1*y1)>(x2*x2+y2*y2))then writeln('2-точка')else
writeln('1-точка');
end.
1. Тип Byte так как 32<256
2. Радиус Земли в метрах около 6400000 вполне подойдет integer
3. Масса человека в граммах - <span>integer
4. </span>Температура воздуха в градусах Цельсия в любой из дней в году - integer
5. Количество праздничных дней в году - Byte
6. произведение всех чисел от 1 до 100 - word
7. сумма двух произвольных чисел из отрезка от -200 до 200.
- integer
При алфавитном подходе рассматривается не содержание текста, а его размер.
Зная количество символов в алфавите (это его мощность N), определяем информационный вес i алфавита в битах,используя формулу 2^i=N , затем по формуле J=K*i определяем информационный объем текста (количество информации) K-количество символов в тексте
Например, текст составлен на современном компьютере (русский алфавит -прописные и строчные, английский алфавит-загл и прописные, цифры, знаки) Всего 256 символов Значит мощность алфавита N=256 Информационный вес символа i получаем из равенства 2^i=256 i=8 бит (2^i=N)
Считаем количество символов К текста, включая пробелы и по формуле считаем J- информационный объем (получаем в битах) Если необходимо полученный результат переводим в более крупные единицы.
1. 3, потому что цикл if проверяется один раз.
2. 9, потому что цикл while не запустится ни разу.
3. 8, потому что 2 + 0 + 1 + 2 + 3 = 8.
Http://life-prog.ru/view_algoritmleng.php?id=43 здесь все доходчиво объяснено:) если что непонятно, в коменты
