5 разрезов ну почему обязательно 20 символов? ну с начала отрезаешь и конец вот те 1 см потом так же вот те 2 см и 3 см тоже так
Число 793 в двоичной системе счисления (BIN): 000000000000001100011001.Восьмеричное значение (OCT) для десятичного числа 793: 00001431.Число 793 в шестнадцатеричной системе счисления (HEX): 000319.
var x,y:real;
begin
readln(x);
if x<=3 then y:=-5
else if x>3 then y:=2*x-4;
write('y = ',y);
readln;
end.
Var a,b,c,m1,m2,m3,max:integer;
function sum(n:integer):integer;
var s:integer;
begin
s:=0;
n:=abs(n);
while n>0 do
begin
s:=s+n mod 10;
n:=n div 10;
end;
sum:=s;
end;
begin
write('a, b, c: ');
readln(a,b,c);
m1:=sum(a); m2:=sum(b); m3:=sum(c);
writeln('m1 = ',m1,' m2 = ',m2,' m3 = ',m3);
if m1>m2 then max:=m1 else max:=m2;
if m3>max then max:=m3;
writeln('max = ',max);
end.
Пример:
a, b, c: 45 -3549 138
m1 = 9 m2 = 21 m3 = 12
max = 21