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

@Vadim050596 · Регистрация: 03.10.2013

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

@Mishania · 07.10.2013, 17:40

Vadim050596,

Pascal

var
   a,b: real;
begin
     Write('a:'); Readln(a);
     Write('b:'); Readln(b);
     if a>b then b:=a
            else
     if b>a then a:=b
            else
     if a=b then begin
            a:=0;
            b:=0;
            end;
     Writeln('a=',a:10:2,' ','b=',b:10:2);
     Readln;
end.

@Vadim050596 1 / 1 / 0 Регистрация: 03.10.2013 Сообщений: 34
		1
	Если числа не равны,то заменив каждое из них одним и тем же числом, равным большему из исходных,а если равны то заменив числа нулями. 06.10.2013, 18:15. Просмотров 1396. Ответов 1 Метки нет (Все метки) Даны целые числа ш,и: Если числа не равны,то заменив каждое из них одним и тем же числом, равным большему из исходны,а если равны то заменив числа нулями. 0

Опции темы

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

Решение