<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var c:char;
var s:='';
for var i:=1 to 100 do begin
Read(c); s+=c;
end;
s.Distinct.Where(t->t<>' ').OrderBy(t->t).Println(',')
end.
<u>Пример</u>
а роза упала на лапу азора и карл у клары украл кораллы а клара у карла украла кларнет и это конец строки
а,е,з,и,к,л,н,о,п,р,с,т,у,ц,ы,э
Program z1;
var a,b,s:integer;
begin
writeln('Введите число');
readln(a);
writeln('Введите число');
readln(b);
s:=a+b;
if a<b then begin
writeln (a) end else
writeln(s);
end;
end.
Должно быть так примерно
¬(¬A/\P)VQ
AV¬PVQ
Выражение ¬P ∨ Q истинно на множестве (−∞, 10] ∪ [48, ∞)
Поскольку все выражение должно быть истинно для любого x, выражение A должно быть истинно на полуинтервале (10;48)= > 36 длина