Можно ли так записать программу? var a,a1,a2,a3,a4:integer;
BEGIN
writeln('Введите число');
readln(a);
a1:= a div 1000;
a2:= a div 100 mod 10;
a3:= a div 10 mod 10;
a4:= a mod 10;
if a1>a2
a1>a3
a1>a4
then
begin
writeln('max=',a1);
end;
if a2>a1
a2>a3
a3>a4
then
begin
writeln('max',a2);
end;
if a3>a1
a3>a2
a3>a4
then
begin
writeln('max',a3);
end;
if a4>a1
a4>a2
a4>a3
then
begin
writeln('max',a4);
end;
END.
BEGIN
writeln('Введите число');
readln(a);
a1:= a div 1000;
a2:= a div 100 mod 10;
a3:= a div 10 mod 10;
a4:= a mod 10;
if a1>a2
a1>a3
a1>a4
then
begin
writeln('max=',a1);
end;
if a2>a1
a2>a3
a3>a4
then
begin
writeln('max',a2);
end;
if a3>a1
a3>a2
a3>a4
then
begin
writeln('max',a3);
end;
if a4>a1
a4>a2
a4>a3
then
begin
writeln('max',a4);
end;
END.
More Questions From This User See All