нужно!! ! даны 2 числа вывести большее как это сделать имея только + -/ % остаток от деления а на б , *.

Question

Ксюша Архипова · Accepted Answer

var a.b,c: real; 
begin 
read(a); 
read(b); 
c:=a-b; 
if c:=0 then writeln (' Числа одинаковые' , c) else 
if c > 0 then writeln(a) else 
writeln(b); 
end. 
 
to КЭП 
 
так и округление с модулем же нельзя))

Михаил Шаров · Answer

var a,b : longint; 
 MinVal, MaxVal : integer; 
begin 
 WriteLn('Введите два целых числа: '); 
 Readln(a, b ); 
 MinVal := (a+b-abs(a-b)) div 2 ; 
 MaxVal := (a+b+abs(a-b)) div 2 ; 
 WriteLn('Число ',MaxVal,' не меньше, чем число ',MinVal); 
 Readln 
end. 
 
или так 
 
var a,b, max : integer; 
begin 
WriteLn('Введите два целых числа: '); 
 Readln(a,b); 
 max := round(((a + b)/2) + abs(a - ((a + b)/2))); 
 WriteLn('Максимальное число равно: ',Max) 
end. 
 
или без abs 
 
var a,b,a1,b1:word; 
begin 
 WriteLn('Введите два целых числа: '); 
 readln(a,b); 
 a1:=a div b; 
 a1:=((a1+2) div (a1+1)) mod 2; 
 b1:=(a1+1) mod 2; 
 writeln('Число ', a*a1+b*b1,' не меньше ',a*b1+b*a1); 
end. 
 
to Физмат 
 
Нельзя же < или > использовать.