Var ar:array[1..8] of integer;
max,min,i:integer;
begin;
min:=2147483647; //верхняя граница integer
for i:=1 to 8 do
begin;
readln(ar[i]);
if ar[i]<min then min:=ar[i];
if ar[i]>max then max:=ar[i];
end;
writeln('Max:',max);
writeln('Min:',min);
<span>end.</span>
Трудно сказать не видя структуры твоего калькулятора. Если у тебя два поля для ввода чисел (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;
Заходим в TeamSpeak 3 Клиент
Если вы не авторизовались с ключём привилегий, сделайте это.<span>
</span>Ключ привилегий возьмите в настройках вашего голосового сервера<span>
</span>
Вот вы и авторизовались!
Создаём канал или подканал, правой кнопки мыши кликайте на Название сервера или на дефолтный канал Default Channel<span>
</span>
Откроется окно создания канала, со всеми параметрами.
На рисунке:
1. Можно выбрать иконку 2. Можно поставить пароль доступа
P.S Смотри картинки.
Алг Сумма
нач
цел a, b, s, i
вывод "Введите два числа", нс
ввод a, b
s:=0
нц для i от a до b
s:=s+i*i
кц
вывод "Сумма квадратов = ", s
кон
1.44 Гбайт= 1474.56 мбайт=1509949,4 Кбайт
370 Мбайт = 378880 Кбайт
190 Мбайт = 194560 Кбайт
1509949,4+970+378880+194560 = 2084359.4 Кбайт = 2035,5072 Мбайт = 1,9878 Гбайт
2 Гбайт > 1,9878 Гбайт
Ответ: Все файлы вместятся на флешку.