Question

Напишите программу которая считывает два целых числа а и b и выводит остаток от деления a на b. Каждое число записано в отдельной строке

Answer 1

Ответ:

procedure TForm1.Button1Click(Sender: TObject);

var a,b,result:real;

begin

a:=StrToFloat(edit1.Text);

b:=StrToFloat(edit2.Text);

result:=a/b;

edit3.Text:=FloatToStr(result);

end;

Объяснение:

Писать на Лазарусе, предварительно создать три Edit'a, и одну кнопку, далее жмешь на кнопку и вводишь код.