Помогите с информатикой!задачки Паскаль!

[Викулька]

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

1. Написать программу, вычисляющую частное от деления двух чисел. Программа должна проверить правильность введенных пользователем данных и, если они неверные (делитель равен нулю), вызвать сообщение об ошибке.

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

3. В спортивных соревнованиях участвовало 15 спортсменов. Для удобства каждому присвоили продуктовый номер (от одного до пятнадцати включительно). Известно,сколько баллов набрал каждый спортсмен. Составьте программу,определяющую лучший результат соревнований.

Заранее большое спасибо!

[Cyn4uk]

1. Написать программу, вычисляющую частное от деления двух чисел. Программа должна проверить правильность введенных пользователем данных и, если они неверные (делитель равен нулю), вызвать сообщение об ошибке.

Writeln('Vvedite m');
Readln(m);
Writeln('Vvedite n');
Readln(n);
If (m mod n)=0 then Writeln('Vvedeni nevernie chisla')
   else begin
      k:=(m mod n);
      Writeln('OTVET: ',k);
   end;

Вродибы так... Ток не помню mod или div отвечает за частное от деления, давно не пользовался.

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

a:='1234567890';
Writeln('Vvedite stroky');
Readln(st);
b:=length(st);
ind:=0;
For i:=1 to b do begin
   if pos(st[i],a)<>1 then begin
     Writeln('Vvedennaia stroka - ne celoe chislo');
     ind:=1;
     break;
   end;
end;
if ind=0 then Writeln('Vvedennaia stroka - celoe chislo');

Я думаю, что так =)

3. В спортивных соревнованиях участвовало 15 спортсменов. Для удобства каждому присвоили продуктовый номер (от одного до пятнадцати включительно). Известно,сколько баллов набрал каждый спортсмен. Составьте программу,определяющую лучший результат соревнований.

Вообще не понял условия...

[Викулька]

Большое спасибо!!!

[student_63]

3. В спортивных соревнованиях участвовало 15 спортсменов. Для удобства каждому присвоили продуктовый номер (от одного до пятнадцати включительно). Известно,сколько баллов набрал каждый спортсмен. Составьте программу,определяющую лучший результат соревнований.

Если я првильно понял,то нужно найти минимальный элемент массива,тогда:

writeln('Введите результат спортсмена');
for i:= 1 to 15 do
 begin
  writeln(a[i],'-й спортсмен ');
  readln(a[i]);
 end;
min:=a[1];
for i:=1 to 15 do
  if a[i]<min then
    min:=a[i];

[Викулька]

Спасибо!!!

[Stilet]

В сообщении №2
в первом коде вместо
If (m mod n)=0 then Writeln('Vvedeni nevernie chisla')
нужно написать
If n=0 then Writeln('Vvedeni nevernie chisla')

[Adrian]

Пожалуйста, помогите с олимпиадной задачей "Мультипалиндромы":
Непустая строка (слово) называется палиндромом, если оно читается одинаково как слева направо, так и наоборот.Слово N будем называть палиндромом, если его можно разбить на n частей, каждая из которых есть палиндром, но меньше чем на n палиндромов это слово не разбивается. Например, слово КОЛОСС можно разбить на 3 палиндрома: К, ОЛО, СС, на меньшее же число палиндромов это слово не разбивается.
Для заданного слова требуется определить наименьшее число палиндромов, на которые его можно разбить.