A1
(X<15)*((X>=3)->(X>=7))
Упростим:
(X<15)*( (X < 3) + (X >=7))
X < 15, подходят все варианты, убираем это условие
((X < 3) + (X >=7))
X < 3 нет
X >= 7 есть единственное(8)
ответ:4
А2
A+¬A*B
(A+¬A) * (A+B)
1 * (A + B)
A + B
Ответ: 2
А3
Анализируем первую строку таблицы:
Когда A, B, C одновременно равны нулю, то функция(D) равна "1".
Проверим:
Вариант 1)A&B&¬C = 0*0*1 = 1 - ложь, ответ не подходит
Вариант 2)A+B+C = 0+0+0 = 1 - ложь
Вариант 3)¬A*¬B*¬C = 1*1*1 = 1 - правда
Вариант 4) ¬A+B+C = 1 + 0 +0 = 1 - правда
Подставим в подходящие функции другие элементы таблицы
Вариант 4, строка 2: 1+0+1 = 0 - Ложь.
Рассматривать дальше не имеет смысла, т.к. остался 1 вариант
Ответ:3
Алгоритм решения следующий:
Сначала считывается введенное слово в переменную. Далее, в цикле от начала слова и до его конца проверяется, является ли текущая буква, равной искомой, то есть букве "а". Если такая буква найдена, то выводится её позиция в слове.
А теперь комментарий по каждой из строчек кода.
// Блок объявления переменных
<span>var a:string;
var i:integer;
// Начало программы
begin
// Ввод слова
writeln('Введите слово');
// Считывание слова
read(a);
</span>// Цикл от 1 до длины считанного слова<span>
for i:=1 to length(a) do begin
</span>// Условие на то, является ли текущая буква заданной<span>
if (a[i]='а') then begin
</span>// Если является, вывод её позиции на экран<span>
writeln('Найдена буква “а”, ее позиция:' , i);
</span>// и прерывание дальнейшего цикла, выход из него<span>
break;
</span>// Завершение блока "if"<span>
end;
</span>// <span>Завершение цикла
end;
</span>// Завершение программы<span>
end.</span>
20 звезд.Можно легко проверить,переделав алгоритм.
var s:integer;
procedure F(n: integer);
begin
writeln('*');
if n>0 then begin
writeln('*');
s:=s+1;
F(n-2);
F(n div 2);
F(n div 2);
end;
end;
begin
f(7);
writeln(s);
end.
А) карта (география, история), граф(информатика), график(математика), диаграмма(информатика), фотография(мхк, история), чертеж(черчение)
б) график(погода за месяц), фотография(интернет), карта(если путешествую)