Ответ:
Объяснение:
Var
n,sum,n1,n2,n3:integer;
Begin
Write('Введите 3х значное число: ');
Readln(n);
n1:=n div 101;
n2:=(n div 10) mod 10;
if n2>n1 then writeln('2 число больше первого') else
writeln('1 число больше второго');
end.
Var a,b,c:integer;
begin
writeln('Вычесление периметра треугольника.');
writeln('Введите значение стороны a.');
readln(a);
writeln('Хорошо. Вы ввели значение для a: ',a);
writeln('Введите значение стороны b.');
readln(b);
writeln('Хорошо. Вы ввели значение для b: ',b);
writeln('Введите значение стороны c.');
readln(c);
writeln('Хорошо. Вы ввели значение для c: ',c);
if a<0 then
writeln('Данный треугольник не существует')
else
if b<0 then
writeln('Данный треугольник не существует')
else
if c<0 then
writeln('Данный треугольник не существует')
else
if a+b<c then
writeln('Данный треугольник не существует')
else
if a+c<b then
writeln('Данный треугольник не существует')
else
if b+c<a then
writeln('Данный треугольник не существует')
else
writeln('Периметр треугольника: ',a+b+c);
end.
Ответ:
Объяснение:
1) N = 2^i
256 = 2^i
i = 8 бит глубина кодирования одной буквы из 256-символьного алфавита
2) k=130 * 170 * 15 = 331 500 символов всего на 5 страницах текста
I=k*i
3) 331 500 * 8 бит = 2 652 000 бит нужно для кодирования всего текста
2 652 000/ 8 = 331 500 байт / 1024 = 323,73 Кбайт
Ответ: 323,73 Кбайт нужно для кодирования всего текста
Подробнее - на Znanija.com - znanija.com/task/2699237#readmore
Смотрим на кол-во строк в которых ширина меньше 15 . таковых 4. смотрим на графу вид и из 4 выбираем только ч/б. таковых 2.
не 3, тк в условии написано МЕНЬШЕ 15, а не МЕНЬШЕ ИЛИ РАВНО 15.
ОТВЕТ-2
1. Переменная c=4,75. 4,75 - это дробь. Но переменная c задана как integer, т.е. целое число.
2. abs(x) - возвращает модуль числа x
sqr(x) - возведение в квадрат числа x
sqrt(x) - вычисление квадратного корня из числа x
random(x) - генерирование случайного числа в промежутке (0;X)