Дано трёхзначное число. Найти в нём максимальную цифру. даю 20 баллов Паскаль
Answers & Comments
VampireHacker
Var a,k,b,c:longint; begin read (a); k:=a div 100; b:=a div 10 mod 10; c:=a mod 10; if ((k>b) and (k>c)) then writeln (k) else if ((b>k) and (b>c)) then writeln (b) else if ((c>b) and (c>k)) then writeln (c); end.
Answers & Comments
begin
read (a);
k:=a div 100;
b:=a div 10 mod 10;
c:=a mod 10;
if ((k>b) and (k>c)) then writeln (k) else
if ((b>k) and (b>c)) then writeln (b) else
if ((c>b) and (c>k)) then writeln (c);
end.