Создайте окно с размерами 875х578 с заголовком «Это является окно :)». Создайте текстовое поле с шириной в 35 знаков, и разместить его на 100 пикселей от левого края и на 100 пикселей от верхнего края. В поле пользователь будет вводить целое число. При нажатии правой клавишей мыши по области поля на экран будет выводиться окно сообщения с произведением введенного числа на него самого. Заголовок окна сообщения и цвет фона главного окна установить самостоятельно.

Задание 1

Для получения корня между и n = 1.

Задние 2

nh = A div C - количество квадратов умещающихся по-вертикали

nw = B div C - количество квадратов умещающихся по-горизонтали

n = nh * nw = общее количество квадратов.

Sr = A * B - 2*C*C

Код:

using System;namespace ThisAnswerIsNotMine {    class Program    {        private static void Eq(double a)        {            var x = Math.Atan(1 / (Math.Exp(a) + 1)) + Math.PI;            Console.WriteLine($"Для a = {a}, x = {x}");        }                private static void Squares(int A, int B, int C)        {            int nh = A / C;            int nw = B / C;            int n = nh * nw;            int Sr = A * B - 2*C*C;                        Console.WriteLine($"Количество квадратов со стороной {C} в прямоугольнике размером {A}x{B} равно: {n}");            Console.WriteLine($"Площадь оставшегося куска {Sr}");        }        private static void Main()        {            Eq(double.Parse(Console.ReadLine()!));            Squares(int.Parse(Console.ReadLine()!), int.Parse(Console.ReadLine()!), int.Parse(Console.ReadLine()!));        }    }}

Var C:array['a'..'z'] of integer;
    S:string;
    i,Max:integer;
    j:char;
Begin
Read(S);
For i:= 1 to Length(S) do
    C[S[i]]:=C[S[i]]+1;
Max:=C['a'];
For j:= 'b' to 'z' do
    if Max<C[j] then Max:=C[j];
WriteLn(Max)
End.

Var
   A:array[1..10000] of integer;
   i,k,Max:integer;
Begin
ReadLn(i);
For i:= 1 to i do
    Read(A[i]);
k:=0;
Max:=0;
For i:= 1 to i-1 do
    if A[i]>A[i+1] then k:=k+1
    else if k>Max then
            Begin
            Max:=k;
            k:=0;
            End;
if Max=0 then WriteLn(0)
else WriteLn(Max+1)
End.