Программы на Паскале

[cec]

El Numero Uno, сделай, а мы если что подскажем, подредактируем

[El Numero Uno]

ну суть в том, что мы заполняем матрицу. затем работаем с двумя первыми уравнениями, потом с третьим.
У меня такой вопрос: нужно создавать более широкую матрицу, для того чтобы помещать промежуточные результаты или нет?

[-=IgoREk=-]

Ребят, кто шарит в Паскале помогите 4 долга досдать.
Вот задачи:

В заданной матрице A(N,M) найти количество различных по значению элементов в кадом столбце. Затем переставить столбцы по убыванию найденных значений. Результат напечатать.

Дан файл из целых чисел. Поменять порядок компонент на обратный.

Дан файл записей, содержащий сведения о клиентах: фамилия, имя,день рождения (число, месяц, год). Напечатать данные о клиентах, фамилии которых начинаются с заданной буквы.

Дана матрица A(N,M). Построить вектор, состоящий из номеров максимальных элементов столбцов матрицы. Номер макс. элемента вычисляется функцией.

Пожалуйста, кто может помогите хоть с какой-нибудь работой (

[cec]

El Numero Uno, не надо, вроде, все можно с помощью одной сделать. И еще кол-во переменных тоже 3 равно или без разницы?

[El Numero Uno]

Сообщение от cec

El Numero Uno, не надо, вроде, все можно с помощью одной сделать. И еще кол-во переменных тоже 3 равно или без разницы?

Без разницы

[cec]

Вот сделал немного, там правда ответ только если 3 неизвестных, сегодня просто настроения нет, если что завтра еще подумаю над этим.

[Mon_Ennemi]

Очень нужна помощь в строках)

Есть задание:
Удалить в строке слова, которые встречаются в ней указанное число раз.

При этом такой вариант написания программы не подходит, потому что сравнивает слова поэлементно:

program stroka;
uses crt;
var a:string;
b:array[1..60]of string;
i,k,n,t,m,j:byte;
begin
clrscr;
writeln('vvedite stroku');
readln(a);
writeln('vvedite chislo');
readln(n);
a:=' '+a+' ';
for i:=1 to length(a) do
if a[i]=' 'then inc(k)else b[k]:=b[k]+a[i];
for i:=1 to k do
begin
m:=0;
for j:=1 to k do
if b[i]=b[j] then inc(m);
if m=n then
begin
for t:=length(a)downto 1 do
if copy(a,t,length(b[i])+2)=' '+b[i]+' ' then delete(a,t,length(b[i])+1);
end;
end;
writeln(a);
readln;
end.

Помогите, пожалуйста)

[DoubleQuick]

помогите решить -) задачи вроде несложные, но у меня просто времени нету, так что кому не влом помогите

1.Найти сумму цифр числа
2.Найти старшую цифру числа
3.Переписать по 1 в начало и в конец записи числа n. например,из числа n=3456 надо получить 134561
4. поменять местами первую и последнюю цифры числа
5. найти кол-во четных цифр натурального числа
6. найти самую большую цифру целого числа
7. найти сумму цифр целого числа,больших 5.
8. сколько раз данная цифра встречается в целом числе?

[Egification]

Парни,я не "нупке" просто на теме Циклы не был а задачи надо решить
1) Определите и выведите кол-во трёхзначных чисел,которые делятся одновременно
на 3,5,7
2)Найдите и выведите на экран все двузначные числа сумма квадратов цифр которых делится без остатка на 17

З.Ы
Надо до четверга,желательно чтобы помогли)

[El Numero Uno]

Помогите плиз доделать прогу.
Условие:
Собственно возникла проблема с такой задачей:
На вход программе подаются сведения о сдаче ЕГЭ абитуриентами, которые поступают на разные факультеты в некое высшее учебное заведение. В первой строке сообщается кол-во абитуриентов N, которое не меньше 20, но не превосходит 300, во второй строке указывается кол-во бюджетных мест на факультет (через пробел три числа соответсвующие 1-му, 2-му и третьему фак-у). Каждая из следующих N строк имеет следующтй формат:
<Фамилия> <Факультет> <Баллы>
Пример входной строки:
Иванов 2 57 85 63

Требуется написать программу, которая будет выводить на экран номера факультетов и проходной балл.

Мой вариант:

type bred=record
f:string
sum:real;
end;

Var
Tab1,Tab2:array[1..40] of bred;
t:text;
s:string;
c:char;
z,i,n,sum,k:integer;
Begin
Assign(t,'text.txt');
Reset(t);
Readln(t,n);
For i:=1 to n do begin
s:='';
repeat read(t,c);
s:=s+c;
until c:=' ';
Tab[i].f:=s;
For z:=1 to 3 do begin
Read (t,k);
Sum:=sum+k;
end;
Tab[i].sum:=sum;
readln(t);
{вывод на экран}
end.

Здесь идёт подсчет для 3-х человек (не это главное).
я не знаю как считать, обротать и вывести факультеты и проходной балл. помогите плиз..