Var
s: string;
n: integer;
begin
Write('Введите строку: ');
Readln(s);
n := Length(s);
s := Copy(s, 6, n - 5) + Copy(s, 1, 5);
Writeln(s)
end.
Тестовое решение:
Введите строку: 1234567890abcdef
67890abcdef12345
1) Если а>0 и b>0, то с=а+b=2+5=7
2) Если a>0 не выполняется и b>0 не выполняется, то с=0
Program n1;
Uses CRT;
Var i,n,m: integer;
begin
ClrScr;
writeln('Vvedite n');
readln(n);
i:=1; m:=1;
while i<2*n-1 do
begin
i:= i+2;
m:= m*i;
end;
writeln(m);
readln
end.
var
step:<em> array [1..4] of real</em>;
begin
step[1] := 12*12;
step[2] := 5*5;
step[3] := step[1] + step[2];
step[4] := sqrt(step[3]);
writeln(step[4]);
end.
6) 11(2) = 3(10), 11(3) = 4(10), 3*4 = 12(10) = 1100(2) = 110(3)
8) 144(16) - наибольшее. Вообще, если написание чисел одинаково, то больше то число, у которого больше основание.
Если еще посчитать надо, то вот.
144(16) = 16^2 + 4*16 + 4 = 256 + 64 + 4 = 324(10)
144(10) = 144(10)
144(8) = 8^2 + 4*8 + 4 = 64 + 32 + 4 = 100(10)
144(6) = 6^2 + 4*6 + 4 = 36 + 24 + 4 = 64(10)