Дана последовательность 1+1/2+1/3+…+1/n, найти сумму первых n членов данной последовательности.

(читать всё…)

Задача на Паскале. Дан текст, удалить слова, у которых нет повторяющихся букв.

(читать всё…)

Как данные из Edit1.text, Edit2,text записать в текстовый документ?

(читать всё…)

Есть текстовый файл:

4310139A000PB9;ГАЛИНА;АЛЕКСАНДРОВНА;КОШЕЛЬ;19390131;MH;0010330;17/03/1995;ПЕРВОМАЙСКИЙ РОВД Г.МИНСКА;
11200001;8;0;1;0;29;11100001;35;11906424;7;11700003;38;11400826;34;16;;137
4010139A000PB0;ОЛЬГА;ТИХОНОВНА;ДИВИНА;19390101;MH;0010359;17/03/1995;ПЕРВОМАЙСКИЙ РОВД Г.МИНСКА;
11200001;8;0;1;0;29;11100001;35;11906424;7;11700003;38;11400724;34;22;;28
4190639A000PB6;НИНА;АЛЕКСЕЕВНА;КАЗАЗЯН;19390619;MH;0010355;17/03/1995;ПЕРВОМАЙСКИЙ РОВД Г.МИНСКА;
11200001;8;0;1;0;29;11100001;35;11906424;7;11700003;38;11401062;34;74;2;14
4240439A000PB8;ТАМАРА;СЕМЁНОВНА;ЗОЛОТАРЁВА;19390424;MH;0010365;17/03/1995;ПЕРВОМАЙСКИЙ РОВД Г.МИНСКА;
11200001;8;0;1;0;29;11100001;35;11906424;7;11700003;38;11400173;34;70;;86
4260839A000PB2;ОЛЬГА;АНАТОЛЬЕВНА;ТКАЧЕНКО;19390826;MH;0010092;16/03/1995;ПЕРВОМАЙСКИЙ РОВД Г.МИНСКА;
11200001;8;0;1;0;29;11100001;35;11906424;7;11700003;38;11400161;34;6;;32

Нужно первые 7 значений (каждое из которых разделено знаком «;») записать в свою переменную. Остальные данные не нужны.

(читать всё…)

Составить алгоритм и программу для вычисления в цикле суммарного результата.
Найти суммарную площадь n прямоугольных треугольников, если длина меньшего катета треугольника равна квадратному корню из длины большего, а длины больших катетов равны b, b/2,…b/n

(читать всё…)

Написать приложение, состоящее из 2-х форм. На первой расположить:
— два текстовых поля, в которых задаются размеры второй формы;
— кнопку «Форма 2», при нажатии на которую открывается вторая форма заданного размера;
— кнопку «Изменить», при нажатии на которую Форма 2 то увеличивает, то уменьшает размеры до определенных пределов.

(читать всё…)

Найти номера нечетных элементов, стоящих на четных местах массива, в консоли.

(читать всё…)

Есть ли такой исходник, который будет сокращать дроби типа: 2/3*3?
(читать всё…)

Не могу понять как узнать номер строки последнего разрыва страницы.

(читать всё…)

Мне нужно написать функцию которая ищет сумму цифр числа представленного на вход
например, для числа 123 это будет 1 + 2 + 3 = 6
Подскажите алгоритм как это сделать, а то я не могу понять как это сделать

(читать всё…)