Вывести на экран числа(использовать mod и div) Опции

[MapK]

1. Вывести на экран чётные числа по убыванию от a до b.
2. Вывести максимум и минимум на экран.
3. Поменять максимум и минимум местами.
Заранее благодарен.

Сообщение отредактировано: MapK - 10.12.2009 20:59

[Ozzя]

1.

var
  i,a,b,temp: Integer;
begin
  readln(a,b);
  if a<b then
  begin
    temp:=a;
    a:=b;
    b:=temp;
  end;
  for i:=a downto b do
      if not odd(i) then
        write(i,' ');
  readln;
end.

2-3. Чё? ;)

[MapK]

1.

var
  i,a,b,temp: Integer;
begin
  readln(a,b);
  if a<b then
  begin
    temp:=a;
    a:=b;
    b:=temp;
  end;
  for i:=a downto b do
      if not odd(i) then
        write(i,' ');
  readln;
end.

2-3. Чё? ;)

спасибо конечно, но надо использовать mod и div