Программы голосового набора текста.
Позволяют вводить текст в ПК, надиктовывая его в микрофон.<span />
А - топология "шина"
В - смешанная("кольцо" и "шина")
С - топология "звезда"
D - топология "кольцо"
Е - топология "шина"
F - смешанная ("звезда" и "шина")
G - смешанная("кольцо", "звезда" и "шина")
Обозначу отрицание за корень
![\sqrt{(x<7)}V(x<6)=(x\geq7)V(x<6)](https://tex.z-dn.net/?f=%5Csqrt%7B%28x%3C7%29%7DV%28x%3C6%29%3D%28x%5Cgeq7%29V%28x%3C6%29)
Отсюда высказывание ложно на полуинтервале [6; 7)
Из целых чисел подходит 6.
Ответ: [6; 7)
//PascalABC.NET 3.3,сборка 1627 от 27.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var a:=0;var t:=0;
for var i:=1 to 3 do
begin
if i=3 then
a:=1
else a:=7;
a*=7;
t:=t+a;
end;
t:=t*7;
Writeln('Количество предметов=',t);
end.
Или как в школах учат ->
var a,t:integer;
begin
for var i:=1 to 3 do
begin
a:=0; t:=0;
if i=3 then
a:=1
else a:=7;
a*=7;
t:=t+a;
end;
t:=t*7;
Writeln('Количество предметов=',t);
end.