1
2
3
4
5
6
7
8
9
procedure TForm1.Button3Click(Sender: TObject); //поиск максимального элемента
...
begin
...
Max:= StrToFloat(strngrd1.Cells[0,0]);//присвоим значение 1 элемента
for i:=0 to strngrd1.ColCount - 1 do //цикл по столбцам
for j:=0 to strngrd1.RowCount - 1 do //цикл по строкам
...
end;
Исходя из текста условия можно предложить что имеется ввиду преобразование текста из одной кодировки в другую. Если предположение верно, то задача описывается следующим уравнением:
16*n - 800 = 8*n
n=100
где n - число символов
Рост. Это помоему а как правильно незнаю
Новгород, петроград,Ленинград,Белгород, Вышеград, Кировоград,Царьград, Павлоград