Если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных

@aina · Регистрация: 26.01.2011

Author24 — интернет-сервис помощи студентам

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

@Shumka · 26.01.2011, 16:33

Pascal

if a>b then
begin 
a:=a+1;
b:=a+1;
end;
if a=b then
begin
a:=0;
b:=0;
end;
if a<b then
begin
a:=b+1;
b:=b+1;
end;

@Mad_Dog · 26.01.2011, 16:45

aina,

Pascal

readln(A,B);
if A=B
  then 
    begin
      A:=0;
      B:=0
    end
  else
    if A>B
      then B:=A
      else A:=B;

@Shumka · 26.01.2011, 16:48

Упустила, что большему из исходных.

@aina · 26.01.2011, 16:52 **[ТС]**

спасибо за решение!!! значит правильное решение у Mad_Dog????

@Shumka · 26.01.2011, 17:18

Да, у него правильнее

Если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных

Решение

Решение

@aina 0 / 0 / 0 Регистрация: 26.01.2011 Сообщений: 15
		1
	Если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных 26.01.2011, 16:29. Показов 1674. Ответов 5 Метки нет (Все метки) даны 2 числа. если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если равны, то заменить числа нулями. 0

@Shumka 4 / 4 / 1 Регистрация: 26.01.2011 Сообщений: 25
	26.01.2011, 16:48	4
	Упустила, что большему из исходных. 0

@aina 0 / 0 / 0 Регистрация: 26.01.2011 Сообщений: 15
	26.01.2011, 16:52 [ТС]	5
	спасибо за решение!!! значит правильное решение у Mad_Dog???? 0

@Shumka 4 / 4 / 1 Регистрация: 26.01.2011 Сообщений: 25
	26.01.2011, 17:18	6
	Да, у него правильнее 0