Помощь - Поиск - Пользователи - Календарь
Полная версия: Вывести на экран числа(использовать mod и div)
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
MapK
1. Вывести на экран чётные числа по убыванию от a до b.
2. Вывести максимум и минимум на экран.
3. Поменять максимум и минимум местами.
Заранее благодарен.
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
Цитата(Ozzя @ 10.12.2009 15:55) *

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
Ozzя
Цитата
но надо использовать mod и div

В исходном задании этого условия не было. Сам исправишь.

Вот в этой
if not odd(i) then
строке
MapK
Все спасибо сделал, еще бы 2 и 3 задания smile.gif

Как + в репутацию поставить? smile.gif
Lapp
Цитата(MapK @ 10.12.2009 17:43) *
Как + в репутацию поставить? smile.gif
Читай Правила.
Я сделал от твоего имени.
Ozzя
var
  i,a,b,temp,max,min: 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,' ');
  WriteLn;
  if a mod 2 = 0 then
    max:=a
  else
    max:=a-1;
  if b mod 2 = 0 then
    min:=b
  else
    min:=b+1;
  writeLn('max = ',max);
  writeLn('min = ',min);
  temp:=max;
  max:=min;
  min:=temp;
  writeLn('max = ',max);
  writeLn('min = ',min);
  readln;
end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.