Трудно сказать не видя структуры твоего калькулятора. Если у тебя два поля для ввода чисел (edit1 и edit2), а результат записываешь в Memo1 (кстати, а зачем именно тип Memo?), то можно сделать следующим образом (пример для кнопок "+" и "-")
procedure TForm1.PlusClick(Sender: TObject);
var x,y:real;
r:string;
begin
val(edit1.Text,x);
val(edit2.Text,y);
str(x+y,r);
Memo1.Lines[0]:=edit1.Text+'+'+edit2.Text+'='+r;
end;
procedure TForm1.MinusClick(Sender: TObject);
var x,y:real;
r:string;
begin
val(edit1.Text,x);
val(edit2.Text,y);
str(x-y,r);
Memo1.Lines[0]:=edit1.Text+'-'+edit2.Text+'='+r;
end;
Компьютер,именно он хранит,собирает перерабатывает всю информацию
1 час 2 поциента . всего 9 поциентов в 11 30 а в 12, 10
Ну что знаю подскажу
3. 1 вариант
4. 1 вариант (т.е. 18)
6. Варианты 1;2;4
7. Вариант 2
ВПУ, число букв нечётно. АВПУ, заменяем буквы. ЯБОТ, переписываем. <em>ТОБЯ
</em>ЯТОБ, число знаков чётно. ЯТОБО, заменяем буквы. ЮСНАН, переписываем: <u>НАНСЮ</u>
Получается так)