Паскаль. Задачи с условным оператором

[VADOS2009-1]

Помогите пожулуйста решить задчки на Паскале, плиз
При решении использовать (условный оператор)
№1
Даны 2 прямоугольника стороны которых паралельны или перепендикулярны осям координат. Извесны координаты левого нижнего и правого нижнего углов кажного на них. Найти координаты левого нижнего и правого верхнего углов минимального прямоугольника содержащего указаные прямоугольники.
№ 2
Опредилить верно ли что при делении неотрецательного целого числа
а на положительное число b получаетса остаток равный одному из двух заданых чисел c и d.
№3
Дано двухзначное число. Опредилить :
- входят ли в него цифры 4 или 7
№ 4
Дано натуральное число n (n<- 9999) Выяснить являетса ли оно палиндромом (перевёртышем) с учётом четырёх цыфр , как например числа (7777, 8338, 0330 и т.п (палином - это число, десятичнаязапись которого читаетса одинаково слева направо и справа налево).
№ 5
В старояпонском календаре был принят 60 летний цикл, состоящий из пяти 12-летних подцыклов. Позцыклы обозначались цветом: зелёный, красный, жёлтый, белый и чёрный. Внутри кажного подцыкла , года носили название животных (крыса корова тигр заяц дракон змея лошадь овца обезьяна курица собака и свинья). Например 1984 год - год начала очередного цыкла - называлса годом зелёной крысы.
Составить програму которая по заданому номеру года нашей еры печатает его название по старояпонскому календарю. Расмотреть такие случаи:
а) значение n >- 1984
б) n может быть любым натуральным числом.

[Levsha100]

Ооо, товарисчЪ- Вам во ФРИЛАНС....

[DM_bite]

Ооо, товарисчЪ- Вам во ФРИЛАНС....

Да нет... скорее всего в начальную школу...

Дано двухзначное число. Опредилить :
- входят ли в него цифры 4 или 7

Что трудного?

program Xd;
var n: integer;
b: boolean;
begin
ReadLn(n);
if (n div 10 = 4) or (n mod 10 = 4) or (n div 10 = 7) or (n mod 10 = 7) then b:= true else b:= false;
WriteLn(b);
ReadLn;
end.

2

program xz;
var a,b,c,d: byte;
     t: boolean;
begin
ReadLn(a,b,c,d);
if (a mod b = c) or (a mod b = d) then t:= true
else t:= false;
WriteLn(t);
ReadLn;
end.

Остальные - аналогично.

[Geremy]

№3
Дано двухзначное число. Опредилить :
- входят ли в него цифры 4 или 7

Если число задано в файле то:
считываем файл пока не закончится.Если видим 4 или 7 то выводим на печать , есть такие цифры.

[DM_bite]

Если число задано в файле то:
считываем файл пока не закончится.Если видим 4 или 7 то выводим на печать , есть такие цифры.

Не вижу смысла запихивать двухзначное число в файл.

№ 4
Дано натуральное число n (n<- 9999) Выяснить являетса ли оно палиндромом (перевёртышем) с учётом четырёх цыфр , как например числа (7777, 8338, 0330 и т.п (палином - это число, десятичнаязапись которого читаетса одинаково слева направо и справа налево).
№ 5

Аналогично, находим цифры, используя, div/mod b сравниваем их.

[VADOS2009-1]

Решите пожалуйста все остальные я их просто не понимаю, пожалуйста, а то выженут

[megachuhancer]

Но-но-но... Вы точно уверены, что задачу 1 можно решить? Сказано: Известны(пишется с буквой "т") координаты левого нижнего и правого нижнего углов каждого(пишется с буквой "д") из(просто слов нет) них.

[Chudo4258]

№ 4
Дано натуральное число n (n<- 9999) Выяснить являетса ли оно палиндромом (перевёртышем) с учётом четырёх цыфр , как например числа (7777, 8338, 0330 и т.п (палином - это число, десятичнаязапись которого читаетса одинаково слева направо и справа налево).

procedure poli(n:integer);
var nn,n1,p:integer;
begin
n1:=0;
nn:=n;
while n<>0 do //строим число перевертыш
 begin
  p:=n mod 10;
  n:=n div 10;
  n1:=n1*10+p;
 end;
if nn=n1 then writeln(nn);
end;

var i:integer;
begin
 readln(i);
 poli(i);
readln;
end.

Но данная программа не проверяет число начинающиеся с нуля: 0330. В этом случае лучше использовать строковый тип.

[VADOS2009-1]

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

Но-но-но... Вы точно уверены, что задачу 1 можно решить? Сказано: Известны(пишется с буквой "т") координаты левого нижнего и правого нижнего углов каждого(пишется с буквой "д") из(просто слов нет) них.

Ото всё условие которое дали!