Требуется услуга Помогите решить задачку 10 класса с информатики

[SeeYo]

В данной секции находятся темы для единоразовой работы (мелкие задачи). Если вы ищете работу в крупных проектах, перейдите в соседний раздел. Если вы предоставляете какие-либо услуги в сфере читов и хотите их прорекламировать, то вам в данный раздел.

 

1. Для любого числа Х рассчитать QW=100*X, если Х > 0, в противном случае найти CM=x/100.
Код:

procedure TForm2.Button1Click(Sender: TObject);
var y,x:integer;
begin
x:=Edit1.Text;
if x > 0 then
begin
x:=100*x;
Edit1.Text:=IntToStr(x);
end
else
begin
y:= x / 100;
Edit1.Text:=IntToStr(y);
end;
end;
end.

Ошибки выдаёт, не понимаю в чём дело. Я дурак наверное но надо сдать

 

[Irval]

1. Для любого числа Х рассчитать QW=100*X, если Х > 0, в противном случае найти CM=x/100.
Код:

procedure TForm2.Button1Click(Sender: TObject);
var y,x:integer;
begin
x:=Edit1.Text;
if x > 0 then
begin
x:=100*x;
Edit1.Text:=IntToStr(x);
end
else
begin
y:= x / 100;
Edit1.Text:=IntToStr(y);
end;
end;
end.

Ошибки выдаёт, не понимаю в чём дело. Я дурак наверное но надо сдать

Могу дать код на питоне:

x = int(input())
if x > 0:
    print(x*100)
else:
    print(x/100)

 

[SeeYo]

Могу дать код на питоне:

x = int(input())
if x > 0:
    print(x*100)
else:
    print(x/100)

а надо делфи - лазарус

 

[Irval]

а надо делфи - лазарус

Попробуй этот код

procedure TForm2.Button1Click(Sender: TObject);
begin
var y,x:integer;
x:=Edit1.Text;
if x > 0 then
begin
x:=100*x;
Edit1.Text:=IntToStr(x);
end
else
begin
y:= x / 100;
Edit1.Text:=IntToStr(y);
end;
end.

 

[SeeYo]

Вот то что я выделил, там ошибки выделяет. Вар надо писать перед бегином

 

[Irval]

Вот то что я выделил, там ошибки выделяет. Вар надо писать перед бегином

Как я понял, ошибка заключается в том, что x - целочисленная переменная, а Edit1.Text предстает, как строка