Unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Label1: TLabel;
procedure Button1Click(Sender: TObject);
private { Private declarations }
public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
try
label1.Caption:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
except
On E : EZeroDivide do
ShowMessage('Деление на 0 запрещено : ');
end;
end;
end.<span>
</span>
Наверное, смородина, потому-что это скорее не растение, а еда
По поводу грибов - это не биология (грибы имеют некоторые свойства растения + они РАСТут)
счётчик цикла должен быть целым, т. е. integer!!
5 символов
в 34 байт 272 бит (34*8)
в 16 битной кодировке будет 17 символов (272/16)
в 8 битной кодировке будет 136 бит (17*8)
176-136=40 бит (сколько памяти занимают добаленные символы)
40/8=5 (символов)