begin readln(a); if a > 1000 then print (a*0.85) else writeln ('Нет скидки'); end. --------------------------- program trichis;
a,b,c:integer;
begin readln(a,b,c); if a>=b and a>=c then writeln(a); if b>=a and b>=c then writeln(b); if c>=b and c>=a then writeln(c); if a<=b and a<=c then writeln(a); if b<=a and b<=c then writeln(b); if c<=b and c<=a then writeln(c);
if a = (a+b+c)/2 then writeln (a); if b = (a+b+c)/2 then writeln (b); if c = (a+b+c)/2 then writeln (c);
Answers & Comments
a:integer;
begin
readln(a);
if a > 1000 then print (a*0.85)
else writeln ('Нет скидки');
end.
---------------------------
program trichis;
a,b,c:integer;
begin
readln(a,b,c);
if a>=b and a>=c then writeln(a);
if b>=a and b>=c then writeln(b);
if c>=b and c>=a then writeln(c);
if a<=b and a<=c then writeln(a);
if b<=a and b<=c then writeln(b);
if c<=b and c<=a then writeln(c);
if a = (a+b+c)/2 then writeln (a);
if b = (a+b+c)/2 then writeln (b);
if c = (a+b+c)/2 then writeln (c);
end.