11. Установіть відповідність між діями та інструментами для їх виконання. а)намалювати трикутник б)додати до малюнка текстове пояснення в)зафарбувати деяку замкнену область малюнка г) зобразити прямокутник д) зафарбувати деяку замкнену область малюнка з ефектом розпилювання
public class Test { public static int Main() { Random rnd=new Random(DateTime.Now.Millisecond); // иниц. датчика int n=Convert.ToInt32(Console.ReadLine()); double[] Arr=new double[n]; double e, max=0; for(int i=0;i<Arr.Length; i++) { Arr[i]=(int)(rnd.Next(1,99)); Console.Write(Arr[i]+" "); e=Math.Abs(Arr[i]); if(e>max) max=e; } Console.WriteLine("\nmax={0:f1}",max); return 0; } }
Var s,s1,s2,st1,st2:string; i:integer; mn:set of char; b:boolean; begin writeln('Введите текст:'); readln(s); s:=s+' '; st1:=''; st2:=''; s1:=''; s2:=''; mn:=[]; b:=false; while pos(' ',s)>0 do delete(s,pos(' ',s),1); for i:=1 to length(s) do if s[i]<>' ' then begin s1:=s[i]+s1; s2:=s2+s[i]; if s[i] in mn then b:=true; mn:=mn+[s[i]]; end else begin if s1=s2 then st1:=st1+s1+' '; if not b then st2:=st2+s2+' '; s1:=''; s2:=''; mn:=[]; b:=false; end; if st1<>'' then writeln('Слова-перевёртыши: ',st1) else writeln('Слов-перевёртышей нет'); if st2<>'' then writeln('Слова без повторяющихся букв: ',st2) else writeln('Слов без повторяющихся букв нет'); end.
Пример: Введите текст: заказ слово комок пробел след пример огонь текст Слова-перевёртыши: заказ комок Слова без повторяющихся букв: пробел след
public class Test
{
public static int Main()
{
Random rnd=new Random(DateTime.Now.Millisecond); // иниц. датчика
int n=Convert.ToInt32(Console.ReadLine());
double[] Arr=new double[n];
double e, max=0;
for(int i=0;i<Arr.Length; i++)
{
Arr[i]=(int)(rnd.Next(1,99));
Console.Write(Arr[i]+" ");
e=Math.Abs(Arr[i]);
if(e>max) max=e;
}
Console.WriteLine("\nmax={0:f1}",max);
return 0;
}
}
Пример
15
56 9 1 94 34 42 46 71 2 27 91 37 54 31 66
max=94.0