Трудно сказать не видя структуры твоего калькулятора. Если у тебя два поля для ввода чисел (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;
Кровать.
К примеру. Так же можно сделать и другие.
Var
a:array[1..10,1..10] of integer;
i, j, j1, max, s: integer;
begin
for i:=1 to 10 do
for j:=1 to 10 do
readln(a[i,j]);
max := a[1,1];
for i:=1 to 10 do
for j:=1 to 10 do
if a[i,j]>max then
begin
max := a[i,j];
j1:=j;
end;
for i:=1 to 10 do
begin
s:=a[i, 1];
a[i, 1] := a[i, j1];
a[i, j1] := s;
end;
<span>end.</span>
Даю 2 варианта:
1)
#include <iostream>#include <list>using namespace std;
int main() { int n, t; cin >> n; list<int> li; for (int i = 0; i < n; i++) { cin >> t; li.push_back(t); } li.sort(); li.unique(); cout << li.size() << endl; return 0;}
2)
#include <iostream>#include <set>using namespace std;
int main() { int n, t; cin >> n; set<int> se; for (int i = 0; i < n; i++) { cin >> t; se.insert(t); } cout << se.size() << endl; return 0;}
13. 1. Paint.
Ответ: Paint.