Множества. Дана непустая последовательность слов из строчных русских букв: между соседними словами-запятая,за последним словом-т
Множества. Дана непустая последовательность слов из строчных русских букв: между соседними словами-запятая,за последним словом-точка.Напечатать в алфавитном порядке все гласные буквы,которые не входят хотя бы в одно чётное слово.
<u>PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018</u> <u>Внимание! Если программа не работает, обновите версию!</u>
begin var a:=ReadlnString.ToWords(Arr(',','.')); var (i,ssg):=(1,'аеёиоуыэюя'); var sg:=['а','е','ё','и','о','у','ы','э','ю','я']; while i<=a.Length do begin foreach var c in a[i].ToCharArray do if c in sg then Exclude(sg,c); i+=2 end; for var j:=ssg.Length downto 1 do if not (ssg[j] in sg) then Delete(ssg,j,1); ssg.ToCharArray.Println(',') end.
{конструкция else для того если будут введены отрицательные x y} var x,y:real;begin readln(x,y); if (x*x*x*x*x+y)>0 then writeln(exp(ln(x*x*x*x*x+y)*(1/3))*PI/(1+(exp(ln(2)*y)/x))) else writeln(-exp(ln(abs(x*x*x*x*x+y))*(1/3))*PI/(1+(exp(ln(2)*y)/x))); <span>end.</span>