var
A: array of Integer; // объявление динамического массива
i: Integer;
begin
i := 0;
while True do begin
SetLength (A, i + 1); // установить новый размер массива
Write ('Введите новое значение массива: ');
ReadLn (A [i]);
if A [i] = 2 then
Break;
Inc (i);
end;
Write ('Элементы массива, возведенные в квадрат: ');
for i := 0 to High (A) do
Write (IntToStr (A [i] * A [i]) + ' ');
WriteLn;
WriteLn ('Количество элементов: ' + IntToStr (i));
end;
№1: Будем использовать другие обозначения. ⋁— или; <span>⋀ — и.
</span>
D = (B⋁A) ⋀ ¬С = (A или B) и не C = (отставной офицер или практикующий врач) и не друг Шерлока Холмса.
Предложение: Доктор Ватсон не является другом Шерлока Холмса, и при этом Доктор Ватсон отставной офицер или практикующий врач
№2: Выражение (A⋀(¬A)) всегда ложно. Следовательно можно переписать функцию в данном виде: (С ⋀ ЛОЖЬ) ⋁ B.
выражение (С ⋀ ЛОЖЬ) всегда ложно. Следовательно можно переписать функцию в данном виде: ЛОЖЬ ⋁ B.
выражение (ЛОЖЬ ⋁ B) принимает значение B, по этому функция истинна тогда, когда истинна B
№3: ¬(A⋁B)⋀(C⋁¬D)⋁¬C
⋁ - логическое сложение, запишем как +
⋀ - логическое умножение, запишем как *
Истина - запишем как 1
Ложь - запишем как 0
¬0 = 1
¬1 = 0
В данных обозначениях, функция будет иметь данный вид: K = ¬(A+B)*(C+¬D) + ¬C = ¬(0 + 0) * (1 + ¬1) + ¬1= (¬0)*1 + 0 = 1
Ответ: Истина
№3. Очевидно что Тоня самая старшая
Обозначим возраст Тони сейчас как 2x.
Возраст Жени сейчас: 2x - n; n - Разница между возрастами Тони и Жени
Возраст Гали сейчас: y.
Возраст Гали, когда женя дорастёт до 2x лет равен y + n. Из условия: y + n = x.Следовательно y = x - n
т. о. Возраста Детей Следующие:
Тоня: 2x
Женя: 2x - n
Галя: x - n
x, n > 0; следовательно 2x < 2x - n < x - n.
Ответ:Старшая: Тоня; Средняя: Женя; Младшая: Галя
Тэг <a href=#имя_метки> Текст ссылки </a>
Чтобы обозначить метку(якорь) испоьзуется тэг:
<a name = имя> целевой текст </a>
и т.д цвета и тому подобное в приложении смотри)
Var a:array[1..40] of integer;
i,s:integer;
begin
s:=0;
for i:=1 to 40 do begin
a[i]:=random(200)-100;
Writeln('a[',i,']=',a[i]);
if (a[i] mod 5=0) and (a[i]<0) then
s:=s+a[i];
end;
Writeln('Сумма отрицательных элементов кратных 5 равна: ',s);
<span>end.</span>
Var st: string;begin write('строка: '); readln(st); repeat delete(st,1,1); writeln(st); until length(st)<2;end.
