System. InvalidCastException: "Не удалось привести тип объекта "System. Windows. Forms. TextBox" к типу "System. IConvertible"."

Код:

using System;
using System. Collections. Generic;
using System. ComponentModel;
using System. Data;
using System. Drawing;
using System. Linq;
using System. Text;
using System. Threading. Tasks;
using System. Windows. Forms;

namespace Jojo
{
public partial class Form1 : Form
{

public Form1()
{
InitializeComponent();
}

private void button1_Click(object sender, EventArgs e)
{
int n = Convert. ToInt32(textBox1);
if (n % 2 == 0)
{
label3.Text = "Yes";
}
else
{
label3.Text = "No";
}
}

}
}

var

i: integer;

a: array[1..20] of integer;

function fn(x: integer): integer;

begin

if x mod 10 = 4 then fn: =x div 2

else fn: =x;

end;

begin

for i: =1 to 20 do

readln(a[i]);

for i: =1 to 20 do

begin

a[i]: =fn(a[i]);

writeln(a[i]);

end;

end.

один символ - один байт, значит надо кол-во бит поделить на 8:

24576 /8 = 3072 символа

строка, рот, ройка, ретро, рост, койка, река,тройка,тропа,река.

program e7;

var x: integer;

begin

writeln('vvedite znachenie gradusnoi meri ugla');

readln(x);

if a=180 then writeln('razvernutii') else writeln('ne razvernutii');

readln;

end.

если вы работаете в школе на программе freepascal, то перед "end" можно "readln" не писать. если же вы работаете на программе turbopascal, "readln" перед "end" обязательно нужно писать.