Var a,b,max:integer;
begin
readln(a);
max:=-maxint;
while a>0 do
begin
b:=a mod 10;
a:=a div 10;
if b>max then max:=b;
end;
writeln(max)
end.
Программа написана на языке Pascal
var
x: integer;
begin
readln(x);
if x mod 5 = 0 then
writeln(x * x)
else
writeln(x * x * x)
end.
Var
x, y, z: integer;
begin
read(x, y, z);
if (x = y) and (y = z) and (x = z) then
begin
x := 3 * x;
y := 3 * y;
z := 3 * z;
write(x, y, z);
end
else
if (y = z) then
begin
x := -x;
y := -y;
z := -z;
write(x, y, z);
end
else
begin
x := 222;
y := 222;
z := 222;
write(x, y, z);
end;
end.
110100111 в двоичной СС = 423 в десятичной СС
Слово "слон" если лишнее надо убрать