Дана последовательность вещественных чисел. каждая пара чисел задает границы отрезка. Найти количество целых чисел на отрезках

['studentka']

задана последовательность вещественных чисел четной длины. предполагая что каждая пара соседних чисел задает границы отрезка на числовой прямой, указать те отрезки, кот. содержат четное количество целых чисел.


______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[crazy horse]

Передал вам телепатически.

спасибо, но сигнал получен не полностью, магнитные бури помешали, нельзя ли повторить?

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

['studentka']

спасибо, но сигнал получен не полностью, магнитные бури помешали, нельзя ли повторить?

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

[Stilet]

MODULE Mata;
IMPORT StdLog,ObxRandom;
VAR  a:ARRAY(5) OF ARRAY(2) OF INTEGER;

PROCEDURE Inn;
VAR i,j:INTEGER;
BEGIN
 FOR i:=0 TO LEN(a)-1 DO
  FOR j:=0 TO LEN(a[i])-1 DO
    a[i,j]:=SHORT(ENTIER(ObxRandom.Uniform()*100));
    StdLog.Int(a[i,j]);
    StdLog.Tab;
  END;
  StdLog.Ln; 
 END;StdLog.Ln;
END Inn;

PROCEDURE Inn2;
VAR i,j:INTEGER;
BEGIN
 FOR i:=0 TO LEN(a)-1  DO j:=a[i,1]-a[i,0];
    IF (j MOD 2)=0 THEN 
     StdLog.Int(a[i,1]);StdLog.Tab; StdLog.Int(a[i,0]); StdLog.Ln; 
    END;
 END;
END Inn2;


PROCEDURE do*;
VAR n,k,e:INTEGER;
BEGIN
 StdLog.Clear;
 Inn;
 Inn2;
END do;

END Mata.

Пойдет?
Вот результ:

64 71
74 97
91 83
32 33
55 69

83 91
69 55

['studentka']

спасибо, щас попробую

[crazy horse]

2Stilet Я как-то не уловил, что нужен паскаль. Ты как ухитрился догадаться, что не на фортране требуется?

Это не совсем Паскаль. Оберон наверно.

"- Здарова, саксаулы!
- Мы не саксаулы, мы аксакалы!
- Один фиг, деревня "

[Utkin]

Это не совсем Паскаль. Оберон наверно.