Var a,b: real;
begin
read(a,b);
if (a=b/2+7) then writeln('проходит') else writeln('не подходит');
end.
сначала вводится возраст жениха
На входе два числа а и б
далее проверяем
если а меньше б
то минимум равен а
иначе минимум равен б
в конце выводим минимум
и завершаем программу
Обозначим:
N - мощность алфавита;
V - объем сообщения (в битах);
K - количество букв в сообщении;
i - количество бит на 1 символ.
Формулы:
N = 2^i;
i = V/K
Переведем объем из КБ в байты: 35* 8 * 1024 = 286720 бит.
Чтобы найти мощность алфавита, нужно найти количество бит на символ. Используем формулу: i = V/K.
i = 286720 бит/71680 симв. = 4 бита.
Зная i, можем найти мощность алфавита: N = 2^i.
N = 2^4 = 16.
Ответ: 16.
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
Range(2, 50, 2).Println; // четные
Range(1, 49, 2).Println // нечетные
end.
Ответ:
Объяснение:
Язык Паскаль.
Модель:
Среднее число пассажиров, перевозимых по Кольцевой ветке равно 850 000 человек.
ДСЧ выбрасывает число из интервала 1-100000. Если это число четное, то его вычитаем из среднего, иначе прибавляем к среднему.
Листинг:
uses Crt;
const n=850000;
m=7;
type Metro = array [1..m] of longint;
var A: Metro;
i: integer;
P, max: longint;
begin
ClrScr; Randomize; max:=0;
for i:=1 to m do
begin
P:=1+random(100000);
if (P mod 2 = 0) then P:=(-1)*P;
A[i]:=n+P;
if A[i]>max then max:=A[i];
WriteLn (' ', i, ': ',A[i]:5);
end;
WriteLn(' Max = ',max);
ReadLn;
end.
Результат работы - в прикрепленных фото.