Заголовок))

[LinaDamaskina]

1. Пусть дан файл целых чисел. Выберите наибольшее из них, принадлежащее интервалу [а, b]. Концы интервала а, b вводятся со стандартного устройства ввода.
2. Пусть дана вещественная матрица размером m*n. Определите числа а1,..., am равные суммам элементов строк;
3. Подсчитайте число различных букв в слове
4. Напишите программу, которая удаляет из введенной строки любой требуемый введенный с клавиатуры символ. Процесс удаления выделите в отдельную процедуру DelChInString, строку и символ определите как глобальные переменные. В результате у вас должна получиться программа-модель работы одного из режимов любого текстового редактора.
5. К финалу конкурса лучшего по профессии "Специалист электронного офиса" были допущены трое: Иванов, Петров, Сидоров. Соревнования проходили в три тура. Иванов в первом туре набрал ml баллов, во втором — п1, в третьем — р1. Петров — соответственно т2, п2, р2; Сидоров — т3, пЗ, рЗ. Составьте программу, определяющую, сколько баллов на¬брал победитель.
6. Пусть дан текст из 80 литер. Определите, симметричен ли он, то есть читается ли он одинаково слева направо и справа налево.
7. В ЭВМ вводятся по очереди координаты N точек. Определить, сколько из них попадает в круг радиусом R с центром в точке (а,Ь).

[Вадим Мошев]

сколько вы готовы заплатить за решение? Просто так вам никто это решать не станет.
Назовите цену и сроки.

[Naive]

Какой ты алчный =)

[interacia]

Многие из ваших задач уже неоднократно решались.
Попробуйте воспользоваться поиском.

// 7. В ЭВМ вводятся по очереди координаты N точек.
// Определить, сколько из них попадает в круг радиусом R с центром в точке (а,Ь).
var
A,B:INTEGER;
X,Y:INTEGER;
N:integer;
R:integer;
i:integer;
Sum:integer;
begin
Sum:=0;
Writeln('Введите количество точек N'); readln(N);
Writeln('Введите радиус R'); readln(R);
Writeln('Введите координаты центра окружности A,B'); readln(A,B);
writeln('Укажите координаты');
for i:=1 to N do
  begin
write(i,')'); readln(X,Y);
if sqrt(sqr(abs(A-X))+sqr(abs(B-Y)))<=R then inc(Sum);
  end;
writeln('Ответ:',Sum);
end.