Задачи: массивы! Опции

[Nox]

Програмисты пожалусто помогите решыть такие задания:
1.Ввести два вешественых числа a и b. Найти остаток от деления a и b. Определить принадлежность остатка интервалу [0…4].
2.Даны 10 вешественых чисел. Определить набольшее из отрицательных чисел, округлить его к ближайшему целому.
3.Найти суму положительных элементов двух диогоналий массива. Определить является ли полученное округлое число простым.
P.S Пожалуста кто знает ответте!!! ;)

[Nox]

Первая прога:

program dva;
var a,b,c:real;
begin
writeln('Ввести A');
readln(a);
writeln('Ввести B');
readln(B);
c:=a/b;
if ((a/B) >0) or (a/b <4) then writeln('Принадлежит отрезку');
end.

Так ты неуказал как определить остаток от деления!

Сообщение отредактировано: volvo - 17.12.2004 13:59