<em>Ответ прибл 6.5</em>
количество равновероятных событий в лото = 90
N=2^i
90=2^i
log 90 =log 2^i (логарифм по основанию 2)
i log 2 =log 90 (так log 2 =1 по основанию 2)
i=log 90 = lg 90 /lg 2 =1.95 / 0.30 =6.5 бит
{Составте программу табулирования функции y=1/x^2 с шагом 0,5 и интервал -5<x<7}
const
max_x = 7;
min_x = -5;
d_x = 0.5;
var
x, y: real;
begin
x := min_x;
while(x < max_x) do
begin
if(x <> 0) then
y := 1 / (x * x)
else y := 0;
writeln('x=', x:2:1, ' y=', y:2:5);
x := x + d_x;
end;
end.
К примеру a,b,c - размеры рации
d,e,f - чемодана
размеры упорядочены по возрастанию(УПОРЯДОЧЬ!)
тогда если a>=d and b>=e and c>=f
не Помещается
иначе да
просто с телефона каким-то образом обрезалось всё что я писал
Ответ:
Решение
Объяснение:
НАЧАЛО
Создаются переменные А со значением 3 и С со значением 5
Затем А и С уменьшаются на 1
Проверка: Если А больше 0
Если да, то А и С будут уменьшаться, до тех пор пока А не достигнет 0
Если А меньше или есть 0, то программа продолжит своё выполнение
С уменьшится на 1
Проверка: Если С больше 0
Если да, то С будет уменьшаться, до тех пор пока С не достигнет 0
Если С меньше или есть 0, то программа продолжит своё выполнение
КОНЕЦ
В итоге А и С будут равны 0
Var N, S: integer
BEGIN
write ('Vvedite N'); readln (N);
S := 0;
while N > 0 do
begin
N := N mod 10;
S := S + 1;
end
writeln (S);
if S mod 9 = 0 then writeln (N, 'kratno 9') else writeln (N, 'ne kratno 9');
END.