Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Вывести на экран числа(использовать mod и div)

Автор: MapK 10.12.2009 18:26

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

Автор: Ozzя 10.12.2009 19: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. Чё? ;)

Автор: MapK 10.12.2009 20:58

Цитата(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я 10.12.2009 21:26

Цитата
но надо использовать mod и div

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

Вот в этой
if not odd(i) then
строке

Автор: MapK 10.12.2009 21:43

Все спасибо сделал, еще бы 2 и 3 задания smile.gif

Как + в репутацию поставить? smile.gif

Автор: Lapp 11.12.2009 6:38

Цитата(MapK @ 10.12.2009 17:43) *
Как + в репутацию поставить? smile.gif
Читай Правила.
Я сделал от твоего имени.

Автор: Ozzя 11.12.2009 12:11

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.