Пусть пару имеют 2n камней, тогда без пары тоже 2n камней. Каждая пара и каждый непарный камень занимают один столбец, поэтому всего будет занято n + 2n = 3n столбцов.
Всего доступно столбцов 110/2 = 55, поэтому 3n ≤ 55, n ≤ 18.
Максимальному n = 18 соответствует максимальное количество камней 4n = 72.
Using System;
public class Test
{
public static int Main()
{
Random rnd=new Random(DateTime.Now.Millisecond); // иниц. датчика
int n=Convert.ToInt32(Console.ReadLine());
int[] Arr=new int[n];
for(int i=0; i<Arr.Length; i++) {
Arr[i]=rnd.Next(1,99);
Console.Write(Arr[i]+" ");
}
Console.WriteLine();
for(int i=0; i<Arr.Length; i++) {
if(Arr[i]%2==0) {
int j=(int)Math.Round((double)Math.Sqrt(Arr[i]));
if(j*j==Arr[i]) Console.Write(Arr[i]+" ");
}
}
Console.WriteLine();
return 0;
}
}
Using System;
public class Test
{
public static void Main()
{
double r, x, y;
Console.Write("r = ");
r = double.Parse(Console.ReadLine());
Console.Write("x = ");
x = double.Parse(Console.ReadLine());
Console.Write("y = ");
y = double.Parse(Console.ReadLine());
if ((y>=0)&&(x*x+y*y<=r*r)||(x<=0)&&(y>=-r)&&(y<=x))
Console.WriteLine("Точка попадает в область");
else Console.WriteLine("Точка не попадает в область");
Console.ReadLine();
}
}
Пример:
<span>r = 3
x = -1
y = -2
Точка попадает в область</span>
Program primer;
var a,b:integher;
begin
writeln('vvedite a,b:=');
readln(a,b);
if (a<0) and (b<0) then writelln('yes') else writeln('no');
readln;
end
Задача №7
var x,y:real;
begin
readln(x);
if x<0 then
y:=sqr(sin(x))+2
else if x>=0 then
y:=sqrt(x)+sqrt(sqr(x)+1);
writeln(y);
<span>end.
Задание № 12
var s:array[1..3] of string;
i,count:integer;
begin
for i:=1 to 3 do
begin
writeln('Напишите формулу ',i,' кислоты');
readln(s[i]);if (s[i] = 'H2SO4') or (s[i] = 'h2so4') then
count:=1;
end;
if count=1 then
writeln('Правильная формула есть')
else
writeln('Правильной формулы нет');
<span>end.
Задача №11
var g:array[1..3] of real;
i,count:integer;
begin
for i:= 1 to 3 do
begin
readln(g[i]);
if (g[i] = 9.8) or (g[i] = 10) then
count:=1;
end;
if count = 1 then
writeln('ДА,среди введенных значений есть ускорение свободного падения')
else
writeln('НЕТ,среди введенных значений нет ускорение свободного падения');
<span>end.</span></span></span>