//PascalABC.Net 3.1.0.1200
uses System;
var
title: array[2..5]of string := ('Неудовлетворительно', 'Удовлетворительно', 'Хорошо', 'Отлично');
begin
writeln('Введите оценки');
var marks := new Dictionary<integer, integer>();
repeat
var n := ReadInteger();
if (n > 5) or (n < 2) then continue;
if marks.ContainsKey(n) then
marks[n] += 1
else marks.Add(n, 1);
until marks.Values.Sum >= 10;
for var i := 2 to 5 do
writeln(title[i], ': ', marks[i]);
end.
Const n=10;
var x : array[1..n] of integer;
i : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
x[i]:=random(31)-30;
write(x[i],' ');
end;
writeln;
for i:=1 to n do
if x[i] mod 2 <>0 then x[i]:=x[i]*x[i];
writeln('Измененный массив:');
for i:=1 to n do write(x[i],' ');
writeln;
<span>end.</span>
3) Абрам.
Т.к. НЕ обозначает, что первая должна быть гласная, а последняя согласная.
щетая краску бесконечной
опустить кисть - оп
поднять кисть - по
покрасить жёлтым - пж
покрасить красным - пк
1.оп; 2.пж; 3.по; 4.вправо; 5.оп 6.пк 7.по 8.вправо и т.д весь рисунок
P = [12; 22]; Q = [33; 43]
Импликация ->, которая стоит в скобках, работает так.
Если точка x ∈ P, то должно быть x ∈ Q. Но это не так.
Нет ни одной точки из промежутка Р, который ∈ Q.
Если же точка x ∉ P, то она может ∈ Q, а может ∉ Q.
Поэтому импликация ложна для точек из промежутка Р.
И истинна для всех остальных точек числовой прямой.
Конъюнкция /\, которая стоит за скобками, работает так.
Если оба утверждения истинны, то конъюнкция истинна.
Если хоть одно ложно, то конъюнкция ложна.
Если множество А совпадает с множеством Р = [12, 22],
то для любого х выражение будет ложно.
Потому что для x ∈ A = P = [12; 22] ложна импликация.
А для x ∉ A = P ложно второе утверждение.
В обоих случаях конъюнкция ложна.
Ответ: A = P = [12, 22]; |A| = 10