Иларион
4 год назад
можно ли так записать программу?var a,a1,a2,a3,a4:integer;BEGINwriteln('Введите число');readln(a);a1:= a div 1000;a2:= a div 100 mod 10;a3:= a div 10 mod 10;a4:= a mod 10;if a1>a2a1>a3a1>a4thenbegin writeln('max=',a1);end;if a2>a1a2>a3a3>a4thenbeginwriteln('max',a2);end;if a3>a1a3>a2a3>a4thenbeginwriteln('max',a3);end;if a4>a1a4>a2a4>a3 thenbeginwriteln('max',a4);end;END.
ОТВЕТЫ
Stanislav
Oct 24, 2020
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)and(a1>=a3)and(a1>=a4) then writeln('max = ',a1)
else if (a2>=a3)and(a2>=a4) then writeln('max = ',a2)
else if a3>=a4 then writeln('max = ',a3)
else writeln('max = ',a4);
END.
Пример:
Введите число
4934
max = 9
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)and(a1>=a3)and(a1>=a4) then writeln('max = ',a1)
else if (a2>=a3)and(a2>=a4) then writeln('max = ',a2)
else if a3>=a4 then writeln('max = ',a3)
else writeln('max = ',a4);
END.
Пример:
Введите число
4934
max = 9
920
Смежные вопросы:
