((0&0)v 0)&(1v1)=(0v0)&(1v1)=(0&(1v1)=<span>(0&1)=0</span>
while n <= m do n := 1;
while n > m do n := 0;
write(n);
Если n <= m, то n = 1,
если n > m, то n = 0 (любое число)
При этом условные операторы использованы не будут.
Есть вариант попроще: write(ord(n <= m))
Если n <= m, то будет выведено 1 (порядковый номер true), иначе будет выведено 0 (порядковый номер false)
Var a,k:integer;
begin
write('a (>0) = ');
readln(a);
k:=0;
while a>0 do
begin
k:=k+1;
a:=a div 10;
end;
writeln('k = ',k);
end.
Пример:
<span>a (>0) = 180653
k = 6</span>
Ответ:
Объяснение:
Надеюсь почерк разберешь) Не умею в паинте писать красиво
Пусть t - искомое время в секундах. За первые t/2 секунд была передана информация 2*t/2=t Мбит, за остальные t/2 секунд - информация 6*t/2=3*t Мбит. По условию, t+3*t=4*t=150 Мбайт=150*8=1200 Мбит, откуда t=1200/4=300 c или 300/60=5 мин. Ответ: 5 минут.