Var n,x,max:integer;
begin
readln(n);
while n>0 do
begin
x:=n mod 10;
if x>max then max:=x;
n:=n div 10;
end;
writeln('Максимальная цифра: ',max);
<span>end.</span>
Var a:integer;
begin
writeln('Введите время (в минутах)');
readln(a);
if ((a mod 10>=0)and(a mod 10< 3))or((a mod 10>=5)and(a mod 10< 8)) then writeln('Зелёный')
else writeln('Красный');
readln
end.
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Приём;
ПЕР
слово1, слово2, слово3, слово4, слово5: РЯД 50 ИЗ ЗНАК;
сч: ЦЕЛ;
УКАЗ
СПИСАТЬ("информация", слово1);
ОТ сч := 2 ДО 6 ВЫП
слово2[сч - 2] := слово1[сч]
КОН;
слово2[5] := 0X;
слово3[0] := слово1[7];
слово3[1] := слово1[8];
слово3[2] := слово1[2];
слово3[3] := слово1[4];
слово3[4] := слово1[6];
слово3[5] := 0X;
слово4[0] := слово1[2];
слово4[1] := слово1[0];
слово4[2] := слово1[4];
слово4[3] := слово1[5];
слово4[4] := слово1[6];
слово4[5] := 0X;
Приём.Строка(слово5);
ОТ сч := 0 ДО ДЛИНА(слово5) - 1 ВЫП
ЕСЛИ слово5[сч] = "о" ТО слово5[сч] := "т"
КОН
КОН Задание.