Отметьте операции, выполняемые при редактировании документов.
1. Вставка
2. Изменение цвета
3. Поиск и замена
4. Удаление
5. Изменение шрифта
6. Замена
7. Изменение начертания
8. Выравнивание

Procedure TForm1.Button1Click(Sender: TObject); var result, outgo, privilege, price1, price2, price3: real; begin privilege:=30; price1:=0.71; price2:=1.29; price3:=1.64; outgo:=StrToFloat(Edit1.Text); if CheckBox1.Checked = True then outgo:=outgo-privilege; if outgo < 100 then result:=price1*outgo else if (outgo >= 100) and (outgo < 600) then result:=price2*outgo else result:=price3*outgo; MessageDlg('Сума для оплати за електроенергію:' + #13#10 + FloatToStr(result) + ' грн.', mtInformation, [mbOk], 0); end;

Любое двухзначное число можно представить в виде k=10i+j, где i=1..9, j=0..9.
Тогда (10i+j)+(10j+i)=n², где n - натуральное число
11i+11j=n²; 11(i+j)=n² ⇒ n=√(11(i+j)).
Сумма i+j при указанных выше ограничениях может меняться от 1 до 18, но лишь i+j=11 позволит получить целочисленное n и оно будет равно 11.
Следовательно, алгоритм получения искомых чисел прост: i=11-j
Поскольку j=0 и 1 дадут значения i, равные 11 и 10 соответственно, j (и i) придется ограничить интервалом 2..9
Алгоритм простейший: для каждого i от 2 до 9 находим j=11-i и формируем два числа: 10i+j и 10j+i