Var a,p:integer;
begin
p:=1;
repeat
readln(a);
if (a>=-10) and (a<=10) then
p:=p*a;
until (a>10) or (a<-10);
write(p)<span>
end.</span>
Ответ: 1
Так как более короткая дорога из пункта А ведёт в Е, а из него можно доехать до В, то посчитаем этот путь.
2+3=5
т. к. 5 это наименьший вариант среди предложенных вариантов ответов, то берём его
Вот такое соответствие здесь:
1-А
2-Г
3-В
4-Б
5-Д
Решение:
V=g*i*t
V= 44100Гц*16 бит*120 сек= 8467200 бит
V= 8467200/8*1024*1024= 10 Мбайт
Конъюкцию (and). Поскольку одно из условий оператора if (а>1) всегда равно 1. а другое (а<b) всегда нулю, то результат <span>(a > 1) and (a < b) будет 0 и переменная а получит приращение в 7
</span>a := 10; b := 5;
<span>if (a > 1) and (a < b) then </span>
a := a - 7
else
<span>a := a + 7;</span>