Program n_1;
uses math;
var i, n, m, a, kol, j:int64;
begin
readln(n);
kol:=0;
a:=n;
while a<>0 do begin
a:=a div 10;
kol:=kol+1;
end;
m:=n mod 100;
for i:=1 to kol-1 do begin
if((n div 10) mod 100 > m) then m:=(n div 10) mod 100;
n:=m div 10;
end;
writeln(m);
end.
Решение чисто математическое. Думаю через строковый тип данных работать будет намного проще.
=5*(A2+C3)/(2*B2-3*D3)
=(B2+C4)*(2*B2-3*D3) примечание: В условии не хватает одной открывающей скобки!!! Я поставил ее произвольно...
=2*(C2-C3)+(3^2*(4*K2-3*C5))
Var
a: integer;
b, x: byte;
begin
readln(a);
x := a mod 10;
b := a div 1000 mod 10;
writeln(b, ' - ', x, ' = ', b - x);
end.
Program Program1;
var
s, i: integer;
begin
s := 0;
for i := 1 to 100 do
s := s + i;
writeln(s);
s := 0;
i := 1;
while i <= 100 do
begin
s := s + i;
i := i + 1;
end;
writeln(s);
s := 0;
i := 0;
repeat
i := i + 1;
s := s + 1;
until i < 100;
writeln(s);
end.
C*D+C*D*C+D = C*D+C*D+D = C*D+D = D